例: Parent property (NotesDbDirectory - LotusScript®)

次の Visual Basic コードは NotesDbDirectory オブジェクトの親ユーザーの名前を表示します。

Private Sub DbParent_Click()
Dim s As New NotesSession
s.Initialize
Dim db As NotesDbDirectory
Set db = s.GetDbDirectory("")
MsgBox db.Parent.UserName, , "Parent user name"
End Sub