CodeItBetter Programming Another VB Programming Blog

'Forms - How to create fancy oval 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
 
Private Sub Form_Load()
    Dim ReturnVal As Long
    Me.Show
    ReturnVal = SetWindowRgn(Me.hWnd, CreateEllipticRgn(10, 25, 100, 200), True)
End Sub