Cos'è che non capisci di preciso?
Come con questo
codice:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim gr As Graphics = e.Graphics
gr.FillEllipse(New SolidBrush(Color.LightGray), 0, 0, Me.Width, Me.Height)
gr.DrawEllipse(New Pen(Color.Black), 0, 0, Me.Width, Me.Height)
gr.Dispose()
End Sub
disegni sul form, con un codice analogo
codice:
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim gr As Graphics = e.Graphics
gr.FillEllipse(New SolidBrush(Color.LightGray), 0, 0, sender.Width, sender.Height)
gr.DrawEllipse(New Pen(Color.Black), 0, 0, sender.Width, sender.Height)
gr.Dispose()
End Sub
disegni su una PictureBox.