Public Class Form1
 
    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim g As Graphics = e.Graphics
 
        g.FillEllipse(Brushes.Black, New Rectangle(10, 10, 100, 100))
    End Sub
 
End Class