Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Set db = session.CurrentDatabase Set view = db.GetView("By Category") If view.IsHierarchical Then Messagebox "This is a hierarchical view." Else Messagebox "This is not a hierarchical view." End If
See Also