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 subkeysSub DeleteRegistryKey(ByVal hKey As Long, ByVal KeyName As String) RegDeleteKey hKey, KeyNameEnd Sub