Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
   Me.Text = "Concentric"
   Dim Num As Integer
   Dim Hlf As Integer
   Dim MyPen As New Pen(Color.DarkMagenta)
   For Num = 2 To 26 Step 4
     Hlf = Num / 2
     Me.CreateGraphics.DrawEllipse(MyPen, e.X-Hlf, e.Y-Hlf, Num, Num)
   Next Num
End Sub 'OnMouseDown