Examples: Luminance property (NotesColorObject - LotusScript®)

This agent displays the luminance RGB value of the background color of a view.

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