Создали COM сервер, в котором в коллекцию можно положить и взять объекты. Таким образом можно передавать объекты между программами. Проблема в том, что если создать свой класс и попытаться его туда положить выдается ошибка "Object variable not set" (13). Как решить?

Я так понимаю, что мой класс необходимо "зарегистрировать". Как это сделать? Спасибо =)

Код сервера
авторVERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "ObjCollection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function Add(Obj As Variant, key As String) As Variant
On Error GoTo ErrAdd
Add = True
Call col.Add(Obj, key)
Exit Function
ErrAdd:
Add = False
End Function
Public Function Item(key As String) As Variant
On Error GoTo ErrItem
Set Item = col.Item(key)
Exit Function
ErrItem:
Set Item = Nothing
End Function
Public Function Remove(key As String) As Variant
On Error GoTo ErrRemove
Remove = True
Call col.Remove(key)
Exit Function
ErrRemove:
Remove = False
End Function
Public Function Count() As Long
On Error GoTo ErrCount
Count = col.Count
Exit Function
ErrCount:
Count = 0
End Function
Public Sub About()
MsgBox "DuChan Object Collection"
End Sub



Как используем автор
Dim db As NotesDatabase
dim container as variant

Set db = ns.currentDatabase

Set container = CreateObject("DCN_Obj.ObjCollection")

Call container.Add(a, "string") Работает. Пояснение - db - класс, который был написан в системе изначально (дело в том, что Visual Basic (достаточно старая его версия) используется как встроенный язык в системе, на нем реализованы изначально некоторые классы).

Если сделать так автор
Class myClass
End Class

dim a as myClass
Set a = new myClass
Set container = CreateObject("DCN_Obj.ObjCollection")

Call container.Add(a, "myClass") Не работает, выдает ошибку

Konst_OneVariant - это вам не Object Это ты про что? Про "dim container as variant"? Все нормально работает в такой конструкции

Переписал на авторPublic Function Add(Obj As Object, key As String) As Variant Проблема осталась. Теперь можно передать только объекты (логично), на самописный класс ругается

Упростил функцию, ошибка таже авторPublic Function myAdd(Obj As Variant) As Boolean
MsgBox ("In!")
End Function