Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
   Me.Text = "Blast Off"
   Dim Num As Integer
   Dim Y As Integer = 0
   Dim MyBrush As New SolidBrush(Color.Black)
   Num = 10
   Do
     Me.CreateGraphics.DrawString(Num, Me.Font, MyBrush, 0, Y)
     Y = Y + 15
     Num = Num - 1
   Loop Until Num = 0
   Me.CreateGraphics.DrawString("Blast Off!", Me.Font, MyBrush, 0, Y)
End Sub 'OnMouseDown