     If (bCheck) Then
                    pRecurseSetParents nodP, vCheck &amp; Postfix()
                Else
                    pRecurseSetParents nodP, "CHECK_PART" &amp; Postfix()
                End If
            End If
        End If
    End If
End Sub
Private Sub pRecurseSetChildren( _
        ByRef nod As Node, _
        ByVal vIconKey As Variant _
    )
Dim nodS As Node
Dim lS As Long
    Set nodS = nod.Child
    For lS = nodS.FirstSibling.Index To nodS.LastSibling.Index
        tvwOpt.Nodes(lS).