例: Red property

次のエージェントは、ビューの背景色の赤の RGB 値を表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim color As NotesColorObject
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set color = session.CreateColorObject
  color.NotesColor = view.BackgroundColor
  Messagebox color.Red,, "Red RGB value of View A background"
End Sub