[3booody]

طبعآ اخي فقط تعلم العمل على الفئة GraphicsPath التابعة لمجال الاسماء System.Drawing.Drawing2D.GraphicsPath
من خلالها تطبق عدة اشكال بسهولة

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       FormBorderStyle = Windows.Forms.FormBorderStyle.None
   End Sub

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim grp As New Drawing2D.GraphicsPath
       grp.AddEllipse(ClientRectangle)
       Me.Region = New Region(grp)
       grp.Dispose()
   End Sub