Здравствуйте, КДА, Вы писали:

КДА>Тем не менее, большое СПАСИБО всем кто откликнулся.

Если проблема еще не решена то вот кусочек кода

...
...
...

Private Function DinCreateAXControl(ByRef ProgID As String, ByRef ComponentName As String) as Object

    'Лицензируем класс объекта
    Licenses.Add ProgID

    'Создаем екземпляр объекта по ProgID и возвращаем его
    Set DinCreateAXControl = Me.Controls.Add(ProgID, ComponentName)

End Function

...
...
...

Созданные объекты лучше всего хранить в коллекции (проще присвоить имя да и удобнее при деинициализации и в работе)