 As tFolderInfo
        With m_tFolderInfo(m_iFolderCount)
            .vKey = Key
            .vClosedKey = vClosedKey
            .vOpenKey = vOpenKey
        End With
    End If
End Sub
Property Set OptionPicture( _
        ByVal bState As Boolean, _
        ByRef pic As StdPicture _
    )
Attribute OptionPicture.VB_Description = "Gets/sets the icon image used to draw
 option boxes in the control."
Dim vKey As Variant
    If (bState) Then
        vKey = "OPTIONYES" &amp; Postfix()
    Else
        vKey =