次の例は、「Cars」ビューエントリの親ビューを取得して、そのビューのユニバーサル ID を出力します。
Dim session As New NotesSession
Dim db As New NotesDatabase("","test.nsf")
Dim view As NotesView
Dim entry As NotesViewEntry
Dim parentView As NotesView
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set entry = view.GetEntryByKey("Cars")
Set parentView = entry.Parent
Messagebox parentView.UniversalID