CodeItBetter Programming Another VB Programming Blog

'Controls - How to create Circular Controls

Option Explicit
 
'Add a Command Button to your Form.

Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
    ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _
    ByVal bRedraw As Long) As Long
 
Function CircleIt(Contrl As Control)
    Dim hr&, dl&, usew&, useh&
    hwndDest = Contrl.hWnd
    usew& = Contrl.Width / Screen.TwipsPerPixelX
    useh& = Contrl.Height / Screen.TwipsPerPixelY
    hr& = CreateEllipticRgn(0, 0, usew&, useh&)
    dl& = SetWindowRgn(hwndDest, hr, True)
End Function
 
'How can I call this function:
Private Sub Command1_Click()
    'To Create Circulare Command Button
    Call CircleIt(Command1)
End Sub