         pRecurseSetParents Node, "CHECK_NO" &amp; sPf, False
                Else
                    pRecurseSetParents Node, "CHECK_PART" &amp; sPf
                End If
                RaiseEvent CheckClick(Node, OptionTreeCheckNone)
            End If
        End Select
        LockWindowUpdate 0
    End If
   End If
End Sub
Private Function pbCheckForAll( _
        ByRef nod As Node, _
        ByVal vIcon As Variant _
    ) As Boolean
Dim lS As Long
    pbCheckForAll = True
    For lS = nod.FirstSibl