Examples: HeaderFontColor property (NotesViewColumn - LotusScript®)

This agent toggles the font color between black and blue.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Set db = session.CurrentDatabase
  Set view = db.GetView("Categorized")
  Set vc = view.Columns(0)
  If vc.HeaderFontColor = COLOR_BLACK Then
    vc.HeaderFontColor = COLOR_BLUE
  Else
    vc.HeaderFontColor = COLOR_BLACK
  End If
End Sub