Перебор контролов с изменением свойств - VB

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

Перебираю с помощью цикла все контролы ToolBar на форме:

For Each ctr In RunForm.Controls
If TypeOf ctr Is ToolBar Then
...
End If
Next ctr

получаю их кол-во. Они имеют разные имена а не только индексы. как изменять свойство например у 3го найденного в цикле контрола - например его позицию top...?

Решение задачи: «Перебор контролов с изменением свойств»

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

                            For Each ctr In RunForm.Controls
   ctr.Top = 100
   ' Ну а если всё-таки нужно имя, то:
   MsgBox ctr.Name
Next ctr
                        