我的意思就是，XP窗口的4个角都是有弧度的，我的VB就是写不出来，所以请教大家，希望大家可以帮助我，谢谢！

Option ExplicitDim Rgn As LongPrivate 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 LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Sub Form_Load()Rgn = CreateRoundRectRgn(0, 0, 200, 200, 15, 15)SetWindowRgn Me.hWnd, Rgn, TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)DeleteObject RgnEnd Sub

呵呵，能做出圆角，顶

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

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

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

自己画出来！