主题：[求助]关于窗口拖动的问题！（还有个小问题，例子已附）

以下是引用gdlgh在2012-2-1 14:43:00的发言：

这样也可以！

'全局代码

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer,ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Integer) As Integer

Private Const WM_NCLBUTTONDOWN = &HA1

Private Const HTCAPTION = 2

Public Sub Panel_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs)

    If e.Button=MouseButtons.Left Then

        ReleaseCapture()

        SendMessage(sender.Parent.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)  

    End If

End Sub

'窗口AfterLoad事件

e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown