例: FontPointSize property

次のエージェントは、フォントサイズを 8 から 14 の間で切り替えます。

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)
  vc.FontPointSize = vc.FontPointSize + 1
  If vc.FontPointSize > 14 Then
    vc.FontPointSize = 8
  End If
  Messagebox vc.FontPointSize,, "New point size"
End Sub