Цикл For each для объектов - VB

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

Имеется нижеприведенный код, который меняет свойства всех 10 прогрессбаров, расположенных на форме. Проблема в том, что мне нужно изменить свойства только первых пяти прогрессбаров (ну, или контролировать код, чтобы он знал, что у "этого" прогрессбара нужно поменять свойства, а вот у "этого" нет). Раньше, я бы тупо написал бы код с изменениями свойств для каждого элемента управления (прогрессбара) отдельно, но сейчас хочу, чтобы код был короче и грамотнее, чтобы циклом все делалось. Подскажите плз, как это можно реализовать. В очередной раз опять заранее спасибо.

                    Листинг программы
                
Dim AllProgBars As Object
 
For Each AllProgBars In Me.Controls
 
    If TypeName(AllProgBars) = "ProgressBar" Then
    ' и т.д.......
 
Next

Решение задачи: «Цикл For each для объектов»

textual
                            Листинг программы 
                        
for i=1 to 5
  controls("ProgressBar" & i).свойствоТакоеТо = Тому_то
next