有个作过XP风格的窗体吗？急！

Question

Active Bar是什么东西？VB自带的控件？

Answer 1

http://amtd.dns2go.com/widget/index.asp?action=read&id=114用以下的apiPublic Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
' Used to create the rounded rectangle region
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
' Used to make the form draggable
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
' Also used to make the form draggable
Public Declare Function ReleaseCapture Lib "user32" () As Long
' Used to make the window always on topPublic Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long另外需将form的borderstyle属性设为0
scalemode属性设为3-pix

Answer 2

http://mymtt.y365.com/index.htm
有
□XP按钮：超小型的哟（附源码）  □很小的XP菜单：带源码！！看截图□XP窗体的源代码:再也不是呆板的窗体了 

Answer 3

有Mac OS X的Aqua风格的吗？

Answer 4

去掉标题栏，在窗体的最上方加一image控件