Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String) As Long ' Delete a registry key ' ' Under Windows NT it doesn't work if the key contains subkeys Sub DeleteRegistryKey(ByVal hKey As Long, ByVal KeyName As String) RegDeleteKey hKey, KeyName End Sub |