scription = "Adds a folder to the control."
Dim vIcon As Variant
Dim iIndex As Integer
Dim nodX As Node
    If (FolderType = OptionTreeCheck) Then
        vIcon = "CHECK_YES" &amp; Postfix()
    Else
        If (FolderType = optiontreeFolderCustom) Then
            If Not (IsMissing(FolderIconsKey)) Then
                iIndex = piFindCustomFolderIcon(FolderIconsKey)
                If (iIndex &gt; 0) Then
                    vIcon = m_tFolderInfo(iIndex).vClosedKey
                Else
                    