Example: Accessing NotesViewNavigator properties

This example displays the name of the Parent view and the maximum level of navigation in a view navigator.

Sub Intialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim nav As NotesViewNavigator
  Dim pv As NotesView
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set nav = view.CreateViewNavFromCategory("Products")
  Set pv = nav.ParentView
  Messagebox "MaxLevel: " & nav.MaxLevel & Chr(10) _
  & "Parent view: " & pv.Name
End Sub