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.IsSecondaryResort Then Exit Sub vc.IsSecondaryResortDescending = _ NOT vc.IsSecondaryResortDescending Messagebox vc.IsSecondaryResortDescending,, _ "Secondary resort descending" End Sub
See Also