Сделать форму кнопки отличной от прямоугольной - VB

Формулировка задачи:

Подскажите, пожалуйста, как сделать кнопку, например, Круглой вместо привычной квадратной?

Решение задачи: «Сделать форму кнопки отличной от прямоугольной»

textual
                            Листинг программы 
                        

                            Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 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.dll" (ByVal hObject As Long) As Long
 
Private Sub Form_Load()
Me.ScaleMode = 3
End Sub
 
Private Sub Form_Click()
Dim hRgn As Long
Dim rval As Long
Dim a As Long, b As Long
a = Command1.Width
b = Command1.Height
 hRgn = CreateEllipticRgn(0, 0, a, b)
 SetWindowRgn Command1.hWnd, hRgn, True
    rval = DeleteObject(hRgn)
End Sub
                        