На тестировочную форму помещаем новые элементы.

Создаем код:

Dim colauto As CollectionCollection



Private Sub Command1_Click()

' добавляем элемент

colauto.Add

' ссылка на объект

Dim auto As ClassAuto

' получаем ссылку на объект

Set auto = colauto.Item(colauto.Count())

' заполняем свойства

auto.NameAuto = Text1.Text

auto.Nomer = Text2.Text

End Sub



Private Sub Command2_Click()

MsgBox Str(colauto.Count)

End Sub



Private Sub Command3_Click()

' очистить список

List1.Clear

Dim auto As ClassAuto

' пройтись по колекции

For Each auto In colauto

' поместить названия в список

List1.AddItem auto.NameAuto

Next

End Sub



Private Sub Form_Load()

Set colauto = New CollectionCollection

End Sub



Private Sub Form_Terminate()

Set colauto = Nothing

End Sub

Мы использовали For Each для того, чтобы пробегаться по коллекции, т.к. это очень удобный способ.

For Each Обьект In коллекция

Next

При добавлении мы сразу заполняли свойства добавленного элемента. Коллекции могут иметь внутри себя другие объекты коллекций. Вот так например: