m iFile As Long

    cR.ValueKey = "MaxCount"
    cR.ValueType = REG_DWORD
    cR.Value = MaxFileCount

    cR.ValueKey = "Count"
    cR.ValueType = REG_DWORD
    cR.Value = m_lFileCount
    
    For iFile = 1 To m_lFileCount
        cR.ValueKey = "File" &amp; iFile
        cR.ValueType = REG_SZ
        cR.Value = m_sFiles(iFile)
    Next iFile
    
    Save = True
    Exit Function
SaveError:
    Exit Function
End Function
Public Function Load(ByRef cR As cRegistry) As Boolean
On Error GoTo LoadError
    
