Как организовать перебор объектов формы?

[myprog]

Добрый день ВСЕМ!!!

Вопрос:
Есть форма, на ней объекты

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

с именами: об_01, об_02 ... об_80

как организовать перебор объектов в цикле
for i=1 to 80

с целью изменения цвета фона объекта BackColor

цвет фона зависит от условия.

Заранее СПАСИБО!!!!

[LittleFatCat]

Доброго времени суток!

Думаю, что здесь можно использовать коллекцию объектов формы:

Dim MyControl As Control
For Each MyControl In Me.Controls
If MyControl.Name = "об_01" Then
MyControl.BackColor = <Нужный цвет>
End If
If MyControl.Name = "об_02" Then
...
Next

Вместо IF можно использовать SELECT CASE ... END SELECT

[myprog]

For Each MyControl In Me.Controls

Это хорошо, но тогда придется использовать цикл в цикле что нехорошо:

for i=1 to 80
txtName=Cstr("об_" & i)
For Each MyControl In Me.Controls
If MyControl.Name = txtName Then
MyControl.BackColor = <Нужный цвет>

Как просто сформировать обращение к элементу формы:
Form_фрмФОРМА1.ОБ_01.BackColor
???????????????????????????????????

[myprog]

ЭВРИКА!!!!

for i=1 to 80
txtName=Cstr("об_" & i)
Form_фрмФОРМА1.Controls(txtName).BackColor

ВСЕМ СПАСИБО!!!

[Teslenko_EA]

Здравствуйте myprog.
учитывая что:

с именами: об_01, об_02 ... об_80

подобная конструкция более приемлема:

txtName = "об_" + Right("0" & i, 2)

Евгений.

[myprog]

Доброго здравия Teslenko_EA!

Спасибо за предложенный Вами код.
Он избавляет от необходимости проверки длины i