Examples: KeepSelectionFocus property

This script indicates whether an outline entry keeps selection focus.

Dim s As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry
Set db = s.CurrentDatabase
Set outline = db.getOutline("DiscOutline")
Set entry = outline.GetFirst
If (entry.KeepSelectionFocus) Then
  Messagebox "Keeps selection focus",, entry.Alias
Else
  Messagebox "Does not keep selection focus",, entry.Alias
End If