Form Mouse drag vb.net

To drag form just (1) declare offset, (2) set offset to posistion x,y in mousedown, and (3) set form position of value of offset

private offset as Point

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
offset = New Point(-e.X, -e.Y)
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If (e.Button = MouseButtons.Left) Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(offset.X, offset.Y)
Location = mousePos
End If
End Sub