Как получить имена всех элементов диалога?

[Dr_Lecter]

Есть нарисованный диалог с большим количеством разных элементов.
Необходимо получить их названия, чтобы не копировать по одному из диалога в модуль для объявления объектных переменных.

Согласно Питоньяку можно получить список всех элементов диалога как массив XControl методом getControls()
Получаю, и даже через UBound вижу что получил в одномерный массив 64 элемента.
Но вот вывести на печать массив никак не могу.

Пытался это сделать таким кодом:

Код Выделить Развернуть


Dim ControlsArray()
Dim sControls AS String
Dim i AS Integer

ControlsArray() = oEchoCGStudyDlg.getControls()
For i = LBound(ControlsArray(),1) to UBound(ControlsArray(),1)
sControls = sControls & ControlsArray(i) & Chr(10)
Next i

Msgbox sControls


Получаю сообщение "неверное значение свойств"

[JohnSUN]

Имеется в виду что-то вроде этого?

Код Выделить Развернуть

ControlsArray = oEchoCGStudyDlg.getModel().getElementNames()

[Dr_Lecter]

Именно!

Огромное спасибо!!!!