Como mover una ventana sin barra de título

Podría ocurrir que por el diseño de alguna aplicación que estemos desarrollando en .Net, la barra de título sea incómoda o no se ajuste al diseño, entonces procedemos a quitarla (FormBorder Style = none), ahora, como hacemos para mover esta ventana?, ya que sin la barra de título esto no se podría.

Lo que tenemos que hacer es programar el move del control en algún objeto dentro del mismo form.

    Private mPoint As Point
    Private mMouseAct As Boolean

    Private Sub Form1_MouseDown(ByVal sender As Object, _
            ByVal e As MouseEventArgs) Handles MyBase.MouseDown

        mPoint = New Point(Cursor.Position.X - Me.Location.X, _
                        Cursor.Position.Y - Me.Location.Y)

        mMouseAct = True
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, _
            ByVal e As MouseEventArgs) Handles MyBase.MouseMove

        If mMouseAct = True Then
            Me.Location = New Point(Cursor.Position.X _
                          - mPoint.X, Cursor.Position.Y - mPoint.Y)
        End If

    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, _
        ByVal e As MouseEventArgs) Handles MyBase.MouseUp

        mMouseAct = False

    End Sub