CodeItBetter Programming Another VB Programming Blog

'Forms - How to create circular forms
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
 
'How can I call this
'Call CutCircle(me,0,0,60,60) to make circular form

Function CutCirCle(Form As Form, Left, Top, Fat, Tall)
    SetWindowRgn Form.hWnd, CreateEllipticRgn(Left, Top, Fat, Tall), True
End Function