Membuat Form Yang Berbentuk Elips

Bagaimanakah cara membuat form yang berbentuk elips? tentu saja untuk keperluan ini kita harus memanggil beberapa fungsi API. Bagaimana kodenya? simaklah di bawah ini:

Option Explicit 
 
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 

Contoh penggunaan fungsi API agar form berbentuk Elips

Private Sub Form_Click() 
      Unload Me 
End Sub 
 
Private Sub Form_Load() 
    SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 299, 200), True 
End Sub