       Set nodP = Node.Parent
        sI = nodP.Image
        If Left$(sI, 6) = "CHECK_" Then
            nodP.Image = vIconKey
            If (vIconKey = "CHECK_PART" &amp; Postfix()) Then
                pRecurseSetParents nodP, "CHECK_PART" &amp; Postfix()
            Else
                If (bOn) Then
                    vCheck = "CHECK_YES"
                Else
                    vCheck = "CHECK_NO"
                End If
                bCheck = pbCheckForAll(nodP, vCheck &amp; Postfix())
           