Examples: HeaderFontFace property (NotesViewColumn - LotusScript®)

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