例: CreateColumn method

次のエージェントは、[Subject2] フィールドに基づき、[By Category] ビューの末尾に新しい列を作成します。

Sub Initialize
  Dim s As New NotesSession
  Dim col As NotesViewColumn
  Set view = s.CurrentDatabase.GetView("By Category")
  Set col = view.CreateColumn(view.ColumnCount + 1, _
  "Topic 2", _
  "Subject2")
  Messagebox "Position: " & col.Position & Chr(13) & _
  "Title: " & col.Title & Chr(13) & _
  "Formula: " & col.Formula,, "New column added"
End Sub