可拖动的无标题栏窗体

注意：要设置form的controlbox属性为false，

特别注意： form.text要设置为空,否则不会把标题栏去掉

Dim MousX As Integer

Dim MousY As Integer

Dim CurrX As Integer

Dim CurrY As Integer

 Public Sub myMouseDown(ByVal sender As Object, ByVal ex As MouseEventArgs) Handles MyBase.MouseDown

        If ex.Button = MouseButtons.Left Then

            '如果是鼠标左键，则不捕获鼠标

            Me.Capture() = False

            '获得鼠标坐标（相对于窗体）

            MousX = ex.X

            MousY = ex.Y

        End If

    End Sub

    Public Sub myMouseMove(ByVal sender As Object, ByVal ex As MouseEventArgs) Handles MyBase.MouseMove

        If ex.Button = MouseButtons.Left Then

            '左键操作

            CurrX = Me.Left - MousX + ex.X

            CurrY = Me.Top - MousY + ex.Y

            '设置窗体相对于屏幕的坐标

            Me.SetDesktopLocation(CurrX, CurrY)

        End If

    End Sub

    '

    Public Sub myMouseUp(ByVal sender As Object, ByVal ex As MouseEventArgs) Handles MyBase.MouseUp

        If ex.Button = MouseButtons.Left Then

            Me.Capture() = True

        End If

    End Sub