Yuvarlak Form Oluşturmak

(General)(Declaration)
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 Long) As Long

Private Sub Form_Load()
'En ve boy değerleri değiştirilerek eliptik formlar oluşturulabilir
Dim ref&, i&
Dim en&, boy&
en& = Me.Width / Screen.TwipsPerPixelX
boy& = Me.Height / Screen.TwipsPerPixelY
ref& = CreateEllipticRgn(0, 0, en&, boy&)
i& = SetWindowRgn(Me.hWnd, ref&, True)
End Sub