 tVI.state = tVI.state Or TVIS_BOLD
                Else
                    tVI.state = tVI.state And Not TVIS_BOLD
                End If
                SendMessage tvwOpt.hwnd, TVM_SETITEM, 0&amp;, tVI
            End If
        End With
    End If
            
End Property
Private Function piFindCustomFolderIcon(vKey As Variant)
Dim i As Integer
    For i = 1 To m_iFolderCount
        If (m_tFolderInfo(i).vKey = vKey) Then
            piFindCustomFolderIcon = i
            Exit For
        End If
    N