Option Explicit
Private isMouseDown As Boolean
Private mouseX As Integer
Private mouseY As Integer
Private currX As Integer
Private currY As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
isMouseDown = True
mouseX = X
mouseY = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isMouseDown Then
currX = Me.Left - mouseX + X
currY = Me.Top - mouseY + Y
Me.Move currX, currY
End If
End Sub

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

回复9楼
谢了,可以,运行正常
不过为什么用API函数时,只有建一个模块后在其中定义一个函数,输入上面的,然后在窗体中的某个函数中调用
如果直接在窗体中用的话,运行会显示Declare语句不允许作为对象模块的Public成员
这是怎么回事