'//Löscht einen Registry-Schlüssel
Public Function DeleteKey(ByVal hKey As Long, ByVal Path As String)
  Dim SubKeys As Collection
  Dim i As Integer
 
  If GetSubKeys(hKey, Path, SubKeys) Then
    For i = 1 To SubKeys.Count
      DeleteKey hKey, Path & IIf(Right(Path, 1) = "\", "", "\") & SubKeys(i)
    Next i
  End If
 
  RegDeleteKey hKey, Path
End Function
 
'//Gibt alle Subkeys eines Schlüssels zurück
Public Function GetSubKeys(ByVal hKey As Long, ByVal Path As String, ByRef _
  SubKeys As Collection) As Boolean
  Dim Key As Long, Ret As Long, Cnt As Long
  Dim SubKey As String, SubKeyLen As Long
 
  On Error Resume Next
 
  Ret = RegOpenKeyEx(hKey, Path, 0, KEY_ALL_ACCESS, Key)
 
  If Ret = ERROR_SUCCESS Then
    Set SubKeys = New Collection
 
    Do
      SubKeyLen = 1024
      SubKey = Space(SubKeyLen)
 
      Ret = RegEnumKey(Key, Cnt, SubKey, SubKeyLen)
 
      If Ret = ERROR_SUCCESS Then
        SubKey = Left(SubKey, InStr(1, SubKey, Chr(0)) - 1)
        SubKeys.Add SubKey
      End If
 
      Cnt = Cnt + 1
    Loop Until Ret <> ERROR_SUCCESS
 
    If SubKeys.Count <> 0 Then
      GetSubKeys = True
    End If
  End If
End Function

- "Computers are like air conditioners. They stop working properly when you open Windows"