例: Spacing property

次のエージェントは、ビューの行間隔を切り替えます。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = s.CurrentDatabase
  Set view = db.GetView("Topics")
  If view.Spacing = VW_SPACING_SINGLE Then
    view.Spacing = VW_SPACING_ONE_POINT_25
    Messagebox "1.25",, "New spacing is ..."
  Elseif view.Spacing = VW_SPACING_ONE_POINT_25 Then
    view.Spacing = VW_SPACING_ONE_POINT_50
    Messagebox "1.5",, "New spacing is ..."
  Elseif view.Spacing = VW_SPACING_ONE_POINT_50 Then
    view.Spacing = VW_SPACING_ONE_POINT_75
    Messagebox "1.75",, "New spacing is ..."
  Elseif view.Spacing = VW_SPACING_ONE_POINT_75 Then
    view.Spacing = VW_SPACING_DOUBLE
    Messagebox "Double",, "New spacing is ..."
  Else
    view.Spacing = VW_SPACING_SINGLE
    Messagebox "Single",, "New spacing is ..."
  End If
End Sub