Dim mouseIsDown As Boolean
    Dim lastCoords As System.Drawing.Point
    Private Sub TestForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        mouseIsDown = True
        lastCoords = Control.MousePosition
    End Sub

    Private Sub TestForm_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If mouseIsDown Then
            Dim deltaX% = Control.MousePosition.X - lastCoords.X
            Dim deltaY% = Control.MousePosition.Y - lastCoords.Y
            Me.Left = Me.Left + deltaX
            Me.Top = Me.Top + deltaY
            lastCoords = Control.MousePosition 
        End If

    End Sub

    Private Sub TestForm_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        mouseIsDown = False
    End Sub

    Private Sub TestForm_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        mouseIsDown = False
    End Sub