Private ArrastrarForm As Boolean
    Private PosicionMouseHeader As Point
    Private tmpPoint As Point
 
    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ArrastrarForm = True
            PosicionMouseHeader = e.Location
        End If
    End Sub
 
    Private Sub Form1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If ArrastrarForm Then
            tmpPoint = Me.Location + e.Location - PosicionMouseHeader
            Me.Location = tmpPoint
        End If
    End Sub
 
    Private Sub Form1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ArrastrarForm = False
        End If
    End Sub