拖动没有标题栏的窗体程序(vb6.0源代码编写)在没有标题栏的窗体情况下，通过代码控制， 用鼠标可以拖动 Dim r As Long Dim i If Button = 1 Then i = ReleaseCapture() r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If