Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles lblHeader.MouseDown
        NewLocation = New Point(-e.X, -e.Y)
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles lblHeader.MouseMove
        If e.Button = MouseButtons.Left Then
            Dim mouse_loc As Point = Control.MousePosition
            mouse_loc.Offset(NewLocation.X, NewLocation.Y)
            Me.Location = mouse_loc
        End If
    End Sub