End With

Private Sub CommandButton2_Click()

UserForm4.Hide

End Sub

Некоторые комментарии к программе:

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox1 поэлементно, если список состоит из нескольких колонок, к объекту ListBox1 применяется метод AddItem, с помощью которого в операторе цикла With добавляются элементы списка, например .AddItem "Сорокина" и т.д.; Кроме того, к объекту ListBox1 применяется свойство .List, в качестве значений которого элементам списка ListBox1, находящимся на пересечении указанныхстрок и столбцов, сообщаются соответствующие символьные константы, например, "Информатика", "зачет" и т.д.;

– Так как данные, формируемые в объекте ListBox1 представляют собой таблицу, состоящую из трех столбцов, то, к объекту ListBox1 применяется свойство .ColumnCount, значение которого устанавливаетчисло столбцов в списке = 3;

– Модуль объекта CommandButton2, который в свойстве Caption переименован в “Закрыть”,обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm4 метода Hide ( скрыть ).

Заполнение списка массивом, если список состоит из нескольких колонок

Вызов объекта UserForm5, на базе которого организуется заполнение списка объекта ListBox1 массивом, если список состоит из нескольких колонок, осуществляется с помощью следующего программного модуля:

Private Sub CommandButton1_Click()

UserForm5.Show