例: LimitRevisions property (NotesDatabase - LotusScript®)

次のエージェントは、Revision の制限を 100 ずつ増やして 0 から 1000 の間で切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  lr# = db.LimitRevisions
  If lr# > 999 Then
    db.LimitRevisions = 0
  Else
    db.LimitRevisions = lr# + 100
  End If
  Messagebox db.LimitRevisions,, "Limit $Revisions"
End Sub