例: Name property (NotesView - LotusScript®)

次のエージェントは、ビューの名前を変更します。既存の名前は、Inputbox$ statement でデフォルト値として使用されます。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim newName As String
  Set db = s.CurrentDatabase
  Set view = db.GetView("Topics")
  newName = Inputbox$("New name", _
  "Change name:", view.Name)
  If newName = "" Then Exit Sub
  view.Name = newName
End Sub