Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics()
        g.FillEllipse(Brushes.Red, 10, 10, 40, 40)
    End Sub
 
 
End Class