Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
   Me.Text = "sea shells"
   Dim Num As Integer
   Dim MyPen As New Pen(Color.Chocolate)
   For Num = 1 To 25 Step 5
      Me.CreateGraphics.DrawEllipse(MyPen, e.X, e.Y, Num, Num)
   Next Num
End Sub 'OnMouseDown