Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
  Dim Num As Integer
  Dim MyBrush As New SolidBrush(Color.Black)
  Dim Y As Integer = e.Y
  For Num = 1 To 5
    Me.CreateGraphics.DrawString("" & Num, Me.Font, MyBrush, e.X, Y)
    Y = Y + 15
  Next Num
End Sub 'OnMouseDown