例: Luminance property (NotesColorObject - LotusScript®)

次のエージェントは、ビューの背景色の明度の 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.Luminance,, _
  "Luminance RGB value of View A background"
End Sub