关于鼠标拖动窗口的问题？

Question

我想用MOUSE_EVENT函数实现窗口拖动用了MOUSELEFTUP和MOUSEMOVE加MOUSELEFTDOWN、
SetCursorPos竟然不能拖动只能把鼠标移动哪能位高手可以指点我一下。或有现成的代码更好我的邮箱是[email protected]。

Answer 1

Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 Const WM_NCLBUTTONDOWN = &HA1
 Const HTCAPTION = 2
用API像系统发出消息，把一下代码放在窗体的MouseDown事件中
       Dim m As Long
       If Button = 1 Then
           Call ReleaseCapture
           m = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
       End If