例: NotesColor property (NotesColorObject - LotusScript®)

次のエージェントは、ユーザーの入力に基づいて NotesColor プロパティに書き込みを行い、次に、色のプロパティをすべて表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim color As NotesColorObject
  Set color = session.CreateColorObject
  colorString = Inputbox("Enter color 0-240", "Domino color")
  If Not Isnumeric(colorString) Then
    Messagebox "Color must be numeric 0-240",, "Not numeric"
    Exit Sub
  End If
  notesColor = Cint(colorString)
  If notesColor < 0 Or notesColor > 240 Then
    Messagebox "Color must be numeric 0-240",, "Not in range"
    Exit Sub
  End If
  color.NotesColor = notesColor
  Messagebox "RGB = " & color.Red & ", " & color.Green & _
  ", " & color.Blue & Chr(13) & _
  "HSL = " & color.Hue & ", " & color.Saturation & ", " & _
  color.Luminance,, "Domino color " & color.NotesColor
End Sub