Тип в коллекции

[Cryonyx]

Привет всем. Не знаю, может эта тема есть на форуме (не искал - время ограничено ), но плз подскажите, как в collection запихнуть объект моего типа. Тип объявляю в обычном модуле, код примерно следующий:

Код: Выделить всё


Dim i As myType
i.prop1 = "val1"
i.prop2 = 125
myCollection.add i


Оно ругается, что в коллекцию может добавляться только пользовательский тип данных, объявленный в публичном объектном модуле, или что-то вроде этого.
Friend не помогает.

[kif]

если мне склероз не изменяет, то в коллецию нельзя добавлять переменные пользовательского типа данных, но можно добавить свой класс

[Cryonyx]

А можно внятный пример, который я смогу понять?

[kif]

Код: Выделить всё

Private Sub Form_Load()
Dim a As New Collection
Dim b As Integer
Dim c As Object

Set c = New Class1
b = 5
a.Add b
a.Add c

End Sub

[OMEGUS]

А причем тут классы ?

[GSerg]

Притом, что они добавляются в коллекцию...
И типы добавляются, если проект ActiveX, а тип Public...

[Cryonyx]

Спасибо огромное!
Теперь всё работает на ок!