例: IsProhibitDesignRefresh property (NotesView - LotusScript®)

次のエージェントは、ビューの設計を更新できるかどうかを切り替えます。

Sub Initialize
  Dim session As New Notessession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = session.CurrentDatabase
  Set view = db.GetView("All")
  If view.IsProhibitDesignRefresh Then
    view.IsProhibitDesignRefresh = False
  Else
    view.IsProhibitDesignRefresh = True
  End If
  Messagebox view.IsProhibitDesignRefresh,, "IsProhibitDesignRefresh"
End Sub