Я пытаюсь сделать форму с большим количеством страниц. Пока все работает нормально, и я добавил элементы управления из кода. Теперь я добавляю все проверки в выпадающие списки при инициализации, но я хочу загрузить элементы управления при изменении страницы. Поэтому, когда я запускаю форму, элементы управления должны быть загружены для страницы 1, когда я нажимаю на Страницу 2 Многостраничной страницы для загрузки ее компонентов.
Проблема, с которой я сталкиваюсь, заключается в том, что при запуске 1-я страница не инициализируется, когда нажимается 2-я страница, она инициализируется, но когда я переключаюсь обратно на страницу 1, она инициализируется.
Private Sub UserForm_Initialze()
me.MultiPage1.value=0
End Sub
Private Sub MultiPage1_Change()
Select Case MultiPage1.SelectedItem.index
Case 0
cbWorker.list=array("A","B","C")
cbCountry.list=array("x","y","z")
Case 1
cbStatus.list=array("A","B","C","D")
cbCommission.list=array(1,2,"x","y","z")
End Select
End Sub