移动窗体(.net cf)

以前用到这样的功能都是通过vb.6.0升级得到，一直比较懒~今天没事，写了一下~还不算难~没有判断是否是右键单击~
先将 FormBorderStyle 设置为 FormBorderStyle.None，然后：

 Dim theScreen As Rectangle
    Dim MousX As Short
    Dim MousY As Short
    Dim CurrX As Short
    Dim CurrY As Short
    Dim MoveScreen As Boolean
    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        theScreen = Screen.PrimaryScreen.Bounds()
        Me.Location = New Point((theScreen.Width - Me.Width) / 2, (theScreen.Height - Me.Height) / 2)     
    End Sub

    Private Sub Form1_MouseMove()Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        CurrX = Me.Left - MousX + e.X
        CurrY = Me.Top - MousY + e.Y
        If MoveScreen = True Then
            Me.Location = New Point(CurrX, CurrY)
        End If
    End Sub

    Private Sub Form1_MouseDown()Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        MousX = e.X
        MousY = e.Y
        MoveScreen = True
    End Sub

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