从表单vb6获取模块上的Form1_MouseMove（）事件

Question

如何从模块中获取活动Form1_MouseMove，我在我的模块中尝试了以下操作但不起作用。

Public sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'CODE'

End Sub

Answer 1

在 Form1

中

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As  Single, Y As Single)
    Module1.Form1_MouseMove Button, Shift, X, Y
end sub

在 Module1

中

Public Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'CODE'
End Sub