Dim PosX, PosY As Integer
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.DrawLine(Pens.Black, 0, PosY, Me.Width, PosY)
        e.Graphics.DrawLine(Pens.Black, PosX, 0, PosX, Me.Height)
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        PosX = e.X
        PosY = e.Y
        Me.Refresh()
    End Sub