例: ViewInheritedFrom property

次のエージェントは、現在のビューで継承された名前を表示します。

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