<code>
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Line1.X1 = X
Line1.X2 = X
Line1.Y1 = 0
Line1.Y2 = Me.ScaleHeight
Line2.Y1 = Y
Line2.Y2 = Y
Line2.X1 = 0
Line2.X2 = Me.ScaleWidth
End Sub
</code>