Работа с MultiPage

[GWolf]

Доброго дня, коллеги!

На скрепке проблема, которую не могу решить. Прошу Вашей помощи. Объяснение в файле, но я его продублирую здесь:

UserForm имеет две MultiPage
На MultiPage0 находится два окна: в левое грузится список, по списку можно осуществлять множественное выделение (при нажатой клавише Ctrl). Все что выделили при нажатии кнопки со стрелкой: [>], переносится в правое окно. Если какой-то пункт в отборе нас неустраивает, мы можем его вернуть в левый список, выделив и нажав кнопку со стрелкой: [<].
При переходе на MultiPage1, макрос определяет количество отобранных в правое окно элементов и создает на MultiPage1 столько блоков Label + TextBox, в Label записывается наименование выбранного элемента из правого списка MultiPage0, а TextBox служит для ввода значения по этому элементу пользователем.

Так должно быть, но не работает. Как сделать???

Большое спасибо всем откликнувшимся.

[Prist]

А что конкретно не работает? Я сделал корректный и более удобный перенос позиций из одного ListBox-а в другой. А вот остальная часть задачи для меня выглядит как-то мутно...что создается, где создается, куда распределяется...что в Textbox записывать....

Разобрался что куда. Но, похоже не все так просто. ТекстБоксы создаются, но...На самой форме, а не на MultiPage1. Вот так-то...надо либо придумать, как при создании контролы на MultiPage1 перенести, либо создавать их вне MultiPage1 - на форме.
И еще: эта строка - Set lblU = Me.Controls.Add("Forms.TextBox.1", "tbx_" & i, Visible)
должна выглядеть так: Set lblU = Me.Controls.Add("Forms.TextBox.1", "tbx_" & i, True)

[GWolf]

Доброго дня Prist!

Спасиба за отклик! Замечания поправил.
И по твоей волшебной    наводке я нашел ответ:

Если сделать вот так:

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

Set lblU = Me.MultiPage1.Pages(1).Controls.Add("Forms.TextBox.1", "tbx_" & i, True)

то все работает!