LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim nav As NotesViewNavigator Set db = session.CurrentDatabase Set view = db.GetView("By Category") Set nav = view.CreateViewNavFromCategory("Products") If nav.MaxLevel<> = 9 Then nav.MaxLevel = 9 End If Messagebox nav.MaxLevel
See Also