请教VB的窗口如何写出XP的样式，谢谢！

Option Explicit

Dim Rgn As Long
Private 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
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Form_Load()
Rgn = CreateRoundRectRgn(0, 0, 200, 200, 15, 15)
SetWindowRgn Me.hWnd, Rgn, True
End Sub

Private Sub Form_Unload(Cancel As Integer)
DeleteObject Rgn
End Sub

呵呵，能做出圆角，顶

现在应该考虑如何做仿Vista的了，奇怪，每到这时总有一大批模仿软件出现。半透明玻璃质感边框，有点挑战性哦�

谢谢你的，你的方法我试了，可以。但是觉得还是没有XP的界面好，请问是怎么会事呀？谢谢！

因为你的系统不是XP！
当然，你可以在XP下复制一张图，然后粘贴到你的窗体�

自己画出来！