vIcon = "FOLDERCLOSED"
                End If
            End If
        Else
            vIcon = "FOLDERCLOSED"
        End If
    End If
    If Not (nodParent Is Nothing) Then
        Set nodX = tvwOpt.Nodes.Add(nodParent, tvwChild, Key, Text, vIcon)
    Else
        Set nodX = tvwOpt.Nodes.Add(, , Key, Text, vIcon)
    End If
    If (bBold) Then
        nodX.Selected = True
        SelectedNodeIsBold = True
    End If
    Set AddFolder = nodX
End Function
Public Property Get SelectedNodeIsBold() As Boole