Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim G As Graphics G = PictureBox1.CreateGraphics G.DrawEllipse(Pens.YellowGreen, 100, 10, 300, 200) End Sub