例: BackgroundColor property (NotesView - LotusScript®)

次のエージェントは、ビューの背景色を 3 色の中で切り替えます。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = s.CurrentDatabase
  Set view = db.GetView("Topics")
  If view.BackgroundColor = COLOR_LIGHT_GRAY Then
    view.BackgroundColor = COLOR_YELLOW
    Messagebox "Yellow",, "New color is ..."
  Elseif view.BackgroundColor = COLOR_YELLOW Then
    view.BackgroundColor = COLOR_WHITE
    Messagebox "White",, "New color is ..."
  Else
    view.BackgroundColor = COLOR_LIGHT_GRAY
    Messagebox "Light gray",, "New color is ..."
  End If
End Sub