Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
   Me.Text = "Powers of 2"
   Dim Num As Integer
   Dim Y As Integer = 0
   Dim MyBrush As New SolidBrush(Color.Black)
   Num = 1
   While Num < 1000
     Me.CreateGraphics.DrawString(Num, Me.Font, MyBrush, 0, y)
     Num = Num * 2
     Y = Y + 15
  End While
End Sub 'OnMouseDown