[mohamedahmed1]

تفضل الكود

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim pic As New Drawing2D.GraphicsPath
       pic.AddEllipse(2, 2, 126, 126)
       PictureBox1.Region = New Region(pic)
   End Sub