Examples: IsHidden, IsHiddenFromNotes, IsHiddenFromWeb, HideFormula, and UseHideFormula properties

Sub Initialize
  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
  While Not(entry Is Nothing)
    msg = ""
    If entry.IsHidden Then
      msg = msg & Chr(10) & "Is hidden in this context"
    Else
      msg = msg & Chr(10) & "Is not hidden in this context"
    End If
    If entry.IsHiddenFromNotes Then
      msg = msg & Chr(10) & "Is hidden in the Notes client"
    Else
      msg = msg & Chr(10) & "Is not hidden in the Notes client"
    End If
    If entry.IsHiddenFromWeb Then
      msg = msg & Chr(10) & "Is hidden in the Web client"
    Else
      msg = msg & Chr(10) & "Is not hidden in the Web client"
    End If
    If entry.UseHideFormula Then
      msg = msg & Chr(10) & "Hide formula is in effect"
      If (entry.HideFormula = "") Then
        msg = msg & Chr(10) & "Hide formula is blank"
      Else
        msg = msg & Chr(10) & "Hide formula: " & _
        entry.HideFormula
      End If
    Else
      msg = msg & Chr(10) & "Hide formula is not in effect"
    End If
    Messagebox msg,, entry.Alias
    Set entry = outline.GetNext(entry)
  Wend
End Sub