Private Sub MyPic_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles MyPic.MouseMove
        Me.Text = e.Location.ToString  ' Hier sollten meine korrigierten 
        ' Koordinaten stehen
    End Sub