vb 怎么样能让窗体的边变成圆的

先创建一个圆角矩形，然后把窗口的区域设置成该矩形
代码如下

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) 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 Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_Load()
Dim Rec As RECT, hRgn As Long
GetWindowRect Me.hWnd, Rec
hRgn = CreateRoundRectRgn(0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top, 50, 50) '这里的两个50是分别用来设置圆角的宽和高的
SetWindowRgn Me.hWnd, hRgn, True
End Sub

调用API

创建椭圆形的窗体
API函数
VB怎么样让一个按钮先后点击，让窗体的颜色不断的改变 请教：VB窗体Hide窗体的解决办法， VB很菜的问题....关于如何让窗体移动 如何让VB设计的拖放窗体大小失效呢?? 如何让VB设计的拖放窗体大小失效呢? VB窗体数据的问题 关于VB窗体的问题 关于vb的多重窗体 关于vb窗体的问题~！ vb调用窗体的几个问题