关于窗体拖动（急死人啦！）,该如何解决

关于窗体拖动（急死人啦！！！！！！！！）
在做无标题窗体拖动！
为什么在sendmessage这句代码前要先释放鼠标？
其实这应该也算是API的问题了吧。

------解决方案--------------------
参考：
http://topic.csdn.net/t/20021107/16/1157096.html
------解决方案--------------------
不用API，也一样可以拖动无标题窗体。使用 form 的 MouseDown、MouseUp 和 MouseMove 事件配合：

Private moveMe As Boolean
Private moX As Long, moY As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
moX = X
moY = Y
moveMe = True
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If moveMe Then Me.Move Me.Left - moX + X, Me.Top - moY + Y
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
moveMe = False
End Sub