例: Parent property (NotesDocumentCollection - LotusScript®)

次のスクリプトはコレクションの親データベースを取得します。db と parentDb は同じデータベースを表すため、スクリプトは MOTHER.NSF のタイトルを 2 回表示します。

Sub Click(Source As Button)
  Dim db As New NotesDatabase( "", "mother.nsf" )
  Dim parentDb As NotesDatabase
  Dim collection As NotesDocumentCollection
  Set collection = db.AllDocuments
  Set parentDb = collection.Parent
  Messagebox( db.Title )
  Messagebox( parentDb.Title )
End Sub