このスクリプトは、Property Broker が Track という名前のプロパティを含むかどうかを示します。
Dim s As New NotesSession
Dim pb As NotesPropertyBroker
Set pb = s.GetPropertyBroker()
If pb.HasProperty("Track") Then
Messagebox "Property Broker has Track property", MB_OK, "HasProperty"
Else
Messagebox "Property Broker has no Track property", MB_OK, "HasProperty"
End If