例: Green 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.Green,, _
  "Green RGB value of View A background"
End Sub