Put this code in the MouseMove event of the Form.

Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Cls
   Print X & "," & Y
End Sub