Key = "FOLDEROPEN"
    m_iFolderCount = 1
End Sub
Private Function piFindFOlderIndex( _
        Optional ByVal vClosedKey As Variant, _
        Optional ByVal vOpenKey As Variant _
    ) As Integer
Dim iItem As Integer
    If (IsMissing(vClosedKey)) Then
        For iItem = 1 To m_iFolderCount
            If (vOpenKey = m_tFolderInfo(iItem).vOpenKey) Then
                piFindFOlderIndex = iItem
            End If
        Next iItem
    Else
        For iItem = 1 To m_iFolderCount
            If (vClosedKe