Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
   Me.Text = "Lines"
   Dim Num As Integer
   Dim MyPen As New Pen(Color.Black)
   For Num = 1 To 20 Step 3
      Me.CreateGraphics.DrawLine(MyPen, e.X, e.Y, e.X + 30, e.Y + Num)
   Next Num
End Sub 'OnMouseDown