'bu kodu sadece forma yapıştırın hata verirse bu satırı silin

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()


         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