Examples: Position property (NotesViewColumn - LotusScript®)

This agent displays the titles and positions of all the columns in a view.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Forall vc In view.Columns
    title$ = vc.Title
    If title$ = "" Then title$ = "<No title>"
    Messagebox title$,, "Position " & vc.Position
  End Forall
End Sub