Examples: SecondaryResortColumnIndex property

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(0)
  If Not(vc.IsResortAscending Or vc.IsResortDescending) Then
    Messagebox "Not resortable column",, "Not resortable"
    Exit Sub
  End If
  If vc.IsSecondaryResort Then
    vc.IsSecondaryResort = False
  Else
    vc.IsSecondaryResort = True
    vc.SecondaryResortColumnIndex = 2
  End If
  Messagebox vc.IsSecondaryResort & _
  " Column " & vc.SecondaryResortColumnIndex,, _
  "Secondary resort"
End Sub