to set registry value Key: '" &amp; m_hClassKey &amp; "',Section:
             '" &amp; m_sSectionKey &amp; "',Key: '" &amp; m_sValueKey &amp; "' to value: '" &amp;
             m_vValue &amp; "'"
        End If
        
        'Close the key
        RegCloseKey hKey
    
    End If
    
End Property
Public Function EnumerateValues( _
        ByRef sKeyNames() As String, _
        ByRef iKeyCount As Long _
    ) As Boolean
Dim lResult As Long
Dim hKey As Long
Dim sName As String
Dim lNameSize As Long
Dim s