I think that is, what you want:
Dim moveX, moveY As Integer
Dim newpoint As New Point
Private Sub MnD() Handles MenuStrip1.MouseDown
moveX = Control.MousePosition.X - Me.Location.X
moveY = Control.MousePosition.Y - Me.Location.Y
End Sub
Private Sub MnM(sender As Object, e As MouseEventArgs) Handles MenuStrip1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
newpoint = Control.MousePosition
newpoint.X -= moveX
newpoint.Y -= moveY
Me.Location = newpoint
Application.DoEvents()
End If
End Sub
~ Stefan Wittwer.