Универсальный отловщик событий

[GM]

Я например создаю некий объект например:
Dim a as object
a = form1.controls.add("VB.CommandButton","Command1")
Как можна ловить события этого элемента
Dim withevents a as CommandButton, не подойдет так как объект можеть быть любым.

[GSerg]

as controlextender?