VB6单个事件处理程序，用于多个控件

Question

我正在使用旧的VB6。我要做的是找到一种简单的方法来处理表单上所有控件的常见事件（例如MouseDown / Up等）。控件是不同的，他们应该支持该事件（例如控件，如Edit \ Grid \ Button等）。我试过像：

...
Dim ctr As Control
For Each ctr In Me.Controls
       AddHandler ctr.MouseDown, AddressOf ControlMouseDownHandler
Next

....

Private Sub ControlMouseDownHandler()

End Sub

但我收到编译错误： - “无效使用AddressOf运算符”

我不想使用Win32，而只是VB6提供的功能。

欢迎任何想法