form的borderstyle=0的时候,如何实现拖动窗体？

Question

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 Long) As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim r As Long
    If Button = 1 Then
        i = ReleaseCapture()
        r = SendMessage(hwnd, &HA1, 2, 0)
    End If
End Sub

Answer 1

可以在fom_mousemove事件中form1.move

Answer 2

to: softrain(秋雨)
不行  提示参数不可选

Answer 3

新建一个窗体，把下面代码加上：
Dim tx As Long
Dim ty As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
tx = X
ty = Y
End If
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Me.Move Me.Left + X - tx, Me.Top + Y - ty
End If
End Sub