Examples: CreateColumn method

This agent creates a new column at the end of the "By Category" view based on the Subject2 field.

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