如何在VBA中动态设置表单控件的事件处理程序？

Question

这是我到目前为止所取得的成就，是我从别人的成就中学到的东西。

Set iComboBoxes = New Collection
'Cycling through all controls and gathering all comboboxes
For Each CTRL In UserForm1.Controls
    If TypeName(CTRL) = "ComboBox" Then
        iComboBoxes.Add CTRL
        'Setting onmousedown event handler
        CTRL.OnMouseDown = "=AllComboBoxes_MouseDown(" & CTRL.Name & ")"
    End If
Next CTRL

在设置OnMouseDown事件处理程序的那一行，我收到一条错误消息，指出该对象不支持此属性或方法。我见过其他人这样做，所以我一定错过了一些东西。