Так выводят в выпадающий список, прописывая каждый элемент
Код
Private Sub UserForm_Initialize()ComboBox1.AddItem "Санкт-Петербург"ComboBox1.AddItem "Ленинградская область"ComboBox1.AddItem "Москва"ComboBox1.AddItem "Московская область"End Sub
А как прописать массивом в лист бокс
Код
Private Sub ListBox_Initialize()
ListBox1_Click = Array("01_Январь", "02_Февраль", "03_март")
End Sub