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

Private Sub FreeButt1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = "Нажал левую"
End Sub
 
 
Private Sub FreeButt2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = "Нажал правую. Ну и что?"
End Sub

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