LOTUSSCRIPT/COM/OLE CLASSES
Dim s As New NotesSession Dim pb As NotesPropertyBroker Set pb = s.GetPropertyBroker() Dim pbInputProperty As NotesProperty Dim pbContext As Variant pbContext = pb.InputPropertyContext Set pbInputProperty = pbContext(0) Dim pbValueArray As Variant pbValueArray = pbInputProperty.Values FirstValue$ = pbValueArray(0) Messagebox "First Property value is " + FirstValue$, MB_OK, "Value"