Private Sub Form1_Click(ByVal sender As Object,   _
                        ByVal e As System.EventArgs) Handles Me.Click

   Dim draw As System.Drawing.Graphics
   Dim rect As Rectangle
   Dim brush As SolidBrush

   draw = Me.CreateGraphics
   brush = New SolidBrush(Color.Purple)

   rect = New Rectangle(0, 0, 10, 10)

   For i As Integer = 5 To 100 Step 5
       rect.Width = 3 * i
       rect.Height = i

       draw.FillRectangle(brush, rect)
       brush.Color = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * 255)

       rect.X = rect.X + 3 * i
       rect.Y = rect.Y + i
   Next

   rect.X = 50         ***  MAKE THE BULL'S EYE TARGET CODE ***
   rect.Y = 105

   For i As Integer = 300 To 50 Step -50
       rect.Width = i
       rect.Height = i

       draw.FillEllipse(brush, rect)
       rect.X += 25
       rect.Y += 25

       Select Case i
              Case 300
                  brush = Brushes.Chartreuse
              Case 250
                  brush = Brushes.Red
              Case 200
                  brush = Brushes.Aquamarine
              Case 150
                  brush = Brushes.CadetBlue
              Case 100
                  brush = Brushes.Khaki
       End Select
   Next
End Sub