急！！vb编程中，设置两个个command按钮编写代码使shape由矩形改变成圆形，代码怎么编写啊

Private Sub Command1_Click()

Shape1.Shape = 3

End Sub

Private Sub Command2_Click()

Shape1.Shape = 0

End Sub

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

代码如下

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

---