Listing 2: VB Code Block for Suppressing Ancestors

Public Function ShowRow
   (inLevel as integer, intRowLevel as integer)
   as Boolean
      If (intLevel <= intRowLevel) Then
         Return false
      Else
         Return true
      End If
End Function