Общее управление положением контролеров в форме

[yurkagagarin]

Есть форма в которой мультипейджес. 2 страницы из них должны быть идентичны по дизайну. Названия контролов одинаковы, разница только, что на второй странице к имени контрола добавлена цифра 2: ComboBox и ComboBox2.
Как с помощью кода сделать одинаковое расположение контролов на двух страницах, но не прописывать положение каждого контрола отдельно, а сделать это общей командой (форма большая с множеством контролеров и лэблов).
То есть заменить вот этот код на более простой:

Private Sub UserForm_Initialize()
labour2.Top = labour.Top
labour2.Height = labour.Height
labour2.Left = labour.Left
labour2.Width = labour.Width
End Sub

[EducatedFool]

А зачем программно двигать контролы?
Не проще один раз их вручную разместить на форме в нужных местах?

[yurkagagarin]

Когда их несколько сот, то двигать их вручную так чтобы на обеих страницах они были на тех же местах это адъ и Израиль. Плюс если по желанию заказчика, а оно всегда есть, надо что-то менять в их расстановке, то опять же гемор. А так на одной странице их расставил, а вторая автоматом через инициализавию изменится.

[alex77755]

Ну если страници полностью одинаковы, то может вообще отказаться от 2 страниц?
Как-то упорядочить, засунуть в массивы.
Несколько сот это, конечно круто!
Полюбопыствовать можно: а что за контролы? ( не контролеры)

[alex77755]

Если, конечно имена у них соответствующие, то можно в цикле по контролам установить координаты и размеры

[yurkagagarin]

alex77755, Нет, нужно именно 2 страницы (муж и жена).
Обычные контролы: Label,TextBox, ComboBox, OptionButton, CheckBox, Frame
Из-за Фреймов и Лэйблов и получается большое количество.

[yurkagagarin]

Сообщение от alex77755

Если, конечно имена у них соответствующие, то можно в цикле по контролам установить координаты и размеры

А вот как?

[alex77755]

Private Sub UserForm_Activate()
Dim C
    For Each C In Controls
        If C.Name <> "MultiPage1" And InStr(1, C.Name, "2") = 0 Then
            With Controls(C.Name & 2)
            .Left = C.Left
            .Top = C.Top
            .Height = C.Height
            .Width = C.Width
            End With
        End If
    Next
End Sub

[yurkagagarin]

Даёт ошибку на строке с Left
http://c2n.me/3aBdBG6

[alex77755]

У меня на 3 контролах не даёт.
Скорей всего нет дубля у объекта
Как, например у меня у "MultiPage1". Я его пропускаю
Добавь строчку и смотри в дебаггере на каком контроле ошибка

 Debug.Print C.Name, C.Name & 2
            With Controls(C.Name & 2)