Option Explicit
 
<font color=green>' API-Deklarationen</font>
Private Declare Function RegDeleteKey Lib _
  "advapi32.dll" Alias "RegDeleteKeyA" _
  (ByVal hkey As Long, ByVal lpSubKey As String) As Long
 
Const HKEY_LOCAL_MACHINE = &H80000002

<font color=green>' Schlüssel löschen</font>
Private Sub Command1_Click()
  Dim sKey As String
  Dim lResult As Long
 
  sKey = "SystemCurrentControlSetServicesProtectedStorage"
  lResult = RegDeleteKey(HKEY_LOCAL_MACHINE, sKey)
End Sub