Free download this tutorial link below
Public Class Form1
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Label1.Text = "X " & e.Location.X & " Y " & e.Location.Y
End Sub
End Class