Form - Copia Da Un Form Un ELLISSE E Lo Proietta Nello Schermo

Api # Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
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 Sub Form_Load()
hr& = CreateEllipticRgn(0, 0, 100, 200)
dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub