Public Class Class
Private doc as NotesDocument
Sub New (pDoc as NotesDocument)
Set Me.doc = pDoc
End Sub
End Class
get
Public Function as Variant
On Error Goto Errorhandler
= doc.getItemValue("")
Exit Function
Errorhandler:
Error 10000, "Class, , Line " & Str(Erl) & "(" & Str(Err) & ") " & Error$
Exit Function
End Function