Давайте в исходном классе Auto создадим два свойства: название и номер автомобиля.
И соберем COM DLL. Cоздадим проект для тестирования. Подключаем COM DLL. На форму помещаем две кнопки.
И код к ним.
Dim colauto As CollectionCollection Private Sub Command1_Click() colauto.Add End Sub Private Sub Command2_Click() MsgBox Str(colauto.Count) End Sub Private Sub Form_Load() Set colauto = New CollectionCollection End Sub Private Sub Form_Terminate() Set colauto = Nothing End Sub
При загрузке формы мы создаем коллекцию. При выгрузке удаляем ее. Ну, а по нажатию на кнопку добавляем элементы и удаляем.