nKey)
    If e Then
        Err.Raise 26001, App.EXEName &amp; ".cRegistry", "Failed to delete registry
         Key: '" &amp; m_hClassKey &amp; "',Section: '" &amp; m_sSectionKey
    Else
        DeleteKey = (e = ERROR_SUCCESS)
    End If
    
End Function
Public Function DeleteValue() As Boolean
Dim e As Long
Dim hKey As Long

    e = RegOpenKeyEx(m_hClassKey, m_sSectionKey, 0, KEY_ALL_ACCESS, hKey)
    If e Then
        Err.Raise 26001, App.EXEName &amp; ".cRegistry", "Failed to open key '" &amp;
       