Examples: HeaderFontFace property (NotesViewColumn - LotusScript®)

This agent toggles the header font face between Helvetica and Default Sans Serif.

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.HeaderFontFace = "Default Sans Serif" Then
    vc.HeaderFontFace = "Helvetica"
  Else
    vc.HeaderFontFace = "Default Sans Serif"
  End If
  Messagebox vc.FontFace,, "Font face changed to ..."
End Sub