窗体移动２

 Private Declare Function ReleaseCapture Lib "user32" () As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Long
    Const WM_SYSCOMMAND = &H112
    Const SC_MOVE = &HF012
    Const WMSZ_BOTTOM As Integer = &HF006
    Const WMSZ_Left As Integer = &HF001
    Const WMSZ_Right As Integer = &HF002
    Private Sub pnlCloud_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseDown, lblTitle.MouseDown
        '为当前的应用程序释放鼠标捕获 
        ReleaseCapture()
        '移动窗体 
        SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE, 0)
    End Sub


    Private Sub panel_bottom_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles pnlButtom.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_SYSCOMMAND, WMSZ_BOTTOM, 0)
    End Sub
    Private Sub pnlLeft_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlLeft.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_SYSCOMMAND, WMSZ_Left, 0)
    End Sub


    Private Sub pnlRight_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlRight.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_SYSCOMMAND, WMSZ_Right, 0)
    End Sub