Private Depart As New Point()
Private Sub panel_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.panel.MouseMove
Dim p As Panel = sender
If e.Button = MouseButtons.Left Then
Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
If Depart.IsEmpty Then Depart = New Point(mousePos.X - p.Left, mousePos.Y - p.Top) p.Location =
New Point(mousePos.X - Depart.X, mousePos.Y - Depart.Y)
ElseIf Not Depart.IsEmpty Then
Depart = New Point()
End If
End Sub