Public Class Form1
    Dim bmp As New Bitmap(200, 200)
    Dim Pb As New PictureBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Pb.BorderStyle = BorderStyle.Fixed3D
        Pb.SetBounds(10, 10, bmp.Width, bmp.Height)
        Pb.Image = bmp
        Me.Controls.Add(Pb)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Using g As Graphics = Graphics.FromImage(bmp)
            g.Clear(Color.Yellow)
            g.FillEllipse(Brushes.Red, 50, 50, 100, 100)
        End Using
        Pb.Invalidate()
    End Sub
End Class