Kod:
Private Sub Form_Load()
Dim hr& dl&
Dim usew& useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
' Olusturuluyor...
hr& = CreateEllipticRgn(55 -20 usew useh) 'Bu sayilari degistirerek pencere ile oynayabilirsiniz..
' Gosteriliyor...
dl& = SetWindowRgn(Me.hWnd hr True)
End Sub
