例: HeaderAlignment property

次のエージェントは、文字揃えを切り替えます。

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(1)
  If vc.HeaderAlignment = VC_ALIGN_LEFT Then
    vc.HeaderAlignment = VC_ALIGN_RIGHT
  Elseif vc.HeaderAlignment = VC_ALIGN_RIGHT Then
    vc.HeaderAlignment = VC_ALIGN_CENTER
  Else
    vc.HeaderAlignment = VC_ALIGN_LEFT
  End If
End Sub