怎么实现窗体的拖放？？

Question

我创建了一个无标题栏的窗体，现在我希望能够用鼠标点击窗体的任何地方实现拖放窗体到任何可以拖放到的地方！！！也就是移动窗体的位置。请高手指点一下怎么实现，谢谢！

Answer 1

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rr As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
rr = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub

Answer 2

TO:laviewpbt(人一定要靠自己)
你来说说吧：）利用回掉函数的方法
你的方法我刚才在叶帆的api浏览器上看到了，呵呵，一样。很感谢，我就是摸不到解决方法的门道。
能说说你一般怎么解决问题的吗？？谢谢