Examples: ColumnNames property (NotesView - LotusScript®)

Private Sub ViewColumnNames_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Dim v As NotesView
Dim cns As String
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabase("Web test")
Set v = db.GetView("Main View")
For Each cn In v.ColumnNames
  cns = cns + cn + Chr(10)
Next
MsgBox cns, , "Columns in Main View"
End Sub