Examples: ParentDatabase property (NotesOutline - LotusScript®)

Private Sub OutlineParent_Click()
Dim s As New NotesSession
s.Initialize
Dim outline As NotesOutline
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabase("Web test")
Set outline = db.GetOutline("Main Outline")
MsgBox outline.ParentDatabase.Title, , "Title of parent"
End Sub