Как динамически подгрузить массив ocx-ов, имея доступ к их событиям? - VB

Формулировка задачи:

С одним ActiveX-ом все понятно:

Public WithEvents objExt As VBControlExtender
...
Set objExt = Controls.Add('Mon.Monitor', 'myCtl1')
...
Public Sub objExt_ObjectEvent(Info As EventInfo)
End Sub

А если я не знаю заранее количество загружаемых ActiveX-ов? Я могу объявить так:

Dim obj1(10) As VBControlExtender

Но не могу

Dim WithEvents obj1(10) As VBControlExtender

Решение задачи: «Как динамически подгрузить массив ocx-ов, имея доступ к их событиям?»

textual
                            Листинг программы 
                        

                            Private WithEvents XB As VBControlExtender
...
Private Sub XB_LostFocus()
        Set XB = Me.ActiveControl
End Sub
                        

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы