例: IsMultiDbSearch property (NotesDatabase - LotusScript®)

次の例は IsMultiDbSearch のステータスを表示します。

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If db.IsMultiDbSearch Then
  Messagebox "Is On",, "MultiDbSearch"
Else
  Messagebox "Is Off",, "MultiDbSearch"
End If