我把窗体做成这样了，请问怎么样才可以让鼠标托动它时跟着鼠标移动到指定位置？

mousedown mousemove mouseup

Declare Function ReleaseCapture Lib "user32" () As Long
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 Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

拖动无标题栏窗体。坛子里有过这样的贴子。搜索一下即可

是放在模块前面吗？

回5楼：

它的API申请是 局域申请， 是放在 窗体代码前的。不要放在模块里，
放在模块里，窗体里是用不了的。

我放在窗体前面还是不行，能具体点吗

LZ头像是本人的么？
是公务员？

统统改成 Private 吧，刚重新试了一下

Option Explicit

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)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

你可以把上面这些代码放在 你窗体第一个代码之前，包括里面的那个响应过程。

Dim Xm, Ym As Single
Dim dX, dY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Xm = X
Ym = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
dX = X - Xm
dY = Y - Ym
Left = Left + dX
Top = Top + dY
End If
End Sub