Examples: ViewInheritedFrom property

This agent displays the inherited name for the current view.

Sub Initialize
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Set uiview = ws.CurrentView
  vif$ = uiview.ViewInheritedFrom
  If vif$ = "" Then vif$ = "None"
  Messagebox "Inherited from = " & vif$,, uiview.ViewName
End Sub