делай раз - создаем либу (test.lib) с декларой:
делай два - агент:
делай три - пущаем агент
получаем... - несовпадение типов
каментим Use...
суваем в деклару агента класс, из библы
сохраняем-пущаем - всё проходит!
оттакавот опа
Variant никак не кастится, ежели лист тяним из либы
Код:
Class TestObj
Private testList List As String
Property Set ListStr(xKey) As String
testList(xKey)=ListStr
End Property
Property Get FullList As Variant
FullList=testList
End Property
End Class
Код:
Option Public
Option Declare
Use "test.lib"
Sub Initialize
Dim test As New TestObj()
test.ListStr("1")="One"
test.ListStr("2")="Two"
test.ListStr("3")="Three"
Forall t In test.FullList
Print t
End Forall
End Sub
получаем... - несовпадение типов
каментим Use...
суваем в деклару агента класс, из библы
сохраняем-пущаем - всё проходит!
оттакавот опа
Variant никак не кастится, ежели лист тяним из либы