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