怎样拖动窗体

Question

各位老兄，帮个忙吧!
我在设计界面时，隐藏了窗体的标题栏，现在我如何在窗体内来拖动窗体。？？？

Answer 1

这是我程序中的例子，完整代码如下：
可以写在标准模块中：
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2Public Sub DoDrag(TheForm As Form)
    ReleaseCapture
    SendMessage TheForm.hwnd, &HA1, 2, 0&
End Sub
然后，在你要拖动的窗体的MOUSEDOWN事件中写：
DoDrag.me好了！一切ok！