Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
 Dim MyBrush As New SolidBrush(Color.Black)
 Dim Y As Integer
 Dim Mth As Integer
 Dim D As Date
 For Mth = 1 To 12
   D = Mth & "/1/2002"
   Me.CreateGraphics.DrawString(Format(D,"MMMM"),Me.Font,MyBrush,0, Y)
   Y = Y + 15
 Next Mth
End Sub 'OnMouseDown