Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Dim p1 As Point = Me.PointToClient(New Point(e.X, e.Y))
        Dim p2 As Point = Me.PointToClient(New Point(Me.MenuStrip1.Left, _
          Me.MenuStrip1.Bottom))
        Me.Text = "X= " & e.X.ToString & " ; Y= " & e.Y.ToString & "X= " & ( _
        p1.X - p2.X).ToString & " ; Y= " & (p1.Y - p2.Y).ToString
    End Sub
End Class