ing.Index To nod.LastSibling.Index
        If (tvwOpt.Nodes(lS).Image &lt;&gt; vIcon) Then
            pbCheckForAll = False
            Exit For
        End If
    Next lS

End Function
Private Sub pRecurseSetParents( _
        ByVal Node As ComctlLib.Node, _
        ByVal vIconKey As Variant, _
        Optional ByVal bOn As Boolean = False _
    )
Dim nodP As Node
Dim lS As Long
Dim vCheck As Variant
Dim bCheck As Boolean
Dim sI As String

    If (Node.Parent Is Nothing) Then
        ' finished
    Else
 