Very simple way to move a form holding down mouse button

Private panel1 As New Panel()
Private canMove As Boolean
Private currentPosition As Point
Public Sub New()
    Me.Controls.Add(panel1)
    panel1.Dock = DockStyle.Top
    panel1.BackColor = Color.Black
    Me.FormBorderStyle = FormBorderStyle.None
    AddHandler panel1.MouseDown, AddressOf panel1_MouseDown
    AddHandler panel1.MouseUp, AddressOf panel1_MouseUp
    AddHandler panel1.MouseMove, AddressOf panel1_MouseMove
End Sub

Private Sub panel1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    If canMove Then
        Dim newPosition As Point = Control.MousePosition
        newPosition.X = newPosition.X - currentPosition.X
        newPosition.Y = newPosition.Y - currentPosition.Y
        Me.Location = newPosition
    End If
End Sub

Private Sub panel1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
    canMove = False
End Sub

Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    canMove = True
    currentPosition.X = e.X
    currentPosition.Y = e.Y
End Sub