er type."
   End Select
   Err.Raise lErr + vbObjectError + 1048 + 512, App.EXEName &amp; ".XTreeOpt", sErr
End Sub
Private Function pbOptionItemInBranch( _
        ByVal nod As Node _
    )
Dim lS As Long
   If Not nod Is Nothing Then
      If (Left$(nod.Image, 6) &lt;&gt; "OPTION") Then
          If (nod.Children &gt; 0) Then
              For lS = nod.Child.FirstSibling.Index To
               nod.Child.LastSibling.Index
                  If (Left$(nod.Image, 6) = "OPTION") Then
                      pbO