کد زیر کارم را راه میاندازد

امیدوارم برای دیگران هم مفید باشد

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If pX <> e.X Or pY <> e.Y Then
            pX = e.X
            pY = e.Y

            toolt.SetToolTip(Me.PictureBox1, "X=" + pX.ToString + vbCrLf + "Y=" + pY.ToString)
        End If

    End Sub