Подскажите, как передать массив из функции.

Пишу такое (в классе):

Property Get Embedded As Variant

Dim EmbeddedObjects As New NotesRichTextItem(meDoc, FN_PRESENTATION)
Set Embedded = EmbeddedObjects.EmbeddedObjects

End Property ' Get Embedded

Вызываю потом так:

Forall o In form.Embedded
Messagebox( o.Name )
Print o.Name
End Forall

И получаю соотвественно ошибку тайп мисмач %)
Помогите пожалуйста!!! Туплю с утра

 

Rosna
Попробуйте так:

Property Get Embedded As Variant

Dim rtitem As NotesRichTextItem
Set rtitem = meDoc.GetFirstItem(FN_PRESENTATION)
If rtitem Is Nothing Then Exit Property
Embedded = rtitem.EmbeddedObjects

End Property ' Get Embedded

 

nvy, спасибо!!! Заработало! =)