How to check the edge of button

[csar]

Hi all,

Could anyone create non-rectangular button, and how to check thier edge (like window media player interface) ?!?

any idea/solution please

Thank very much....

[Megatron]

Here's an example of a non-rectangular button

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 Sub Command1_Click()
    MsgBox "You pressed the button"
End Sub
 
Private Sub Form_Load()
    hRgn = CreateEllipticRgn(10, 10, 80, 80)
    Call SetWindowRgn(Command1.hWnd, hRgn, True)
End Sub

[csar]

Thank you