使窗体不能移动

  

   Public Const WM_NCLBUTTONDOWN As Integer = &HA1
    Public Const WM_NCHITTEST As Integer = &H84
    Public Const HTCAPTION As Integer = 2
    Public Const HTCLIENT As Integer = 1

    Protected Overrides Sub WndProc()Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = Me.WM_NCHITTEST Then
            MyBase.WndProc(m)
            If m.Result.ToInt32 = Me.HTCAPTION Then
                m.Result = New IntPtr(Me.HTCLIENT)
            End If
        Else
            MyBase.WndProc(m)
        End If
    End Sub

此段代码重写了WndProc的方法，可以是窗体固定在桌面上。