Private Sub Command1_Click()
  On Error Resume Next
 
  Dim sPath As String, lRet As Long
 
  ' ********************
  ' Such-History löschen
  ' ********************
 
  ' Ort in der Registry wo die Eingabe aus dem Suchfenster gespeichert sind
  sPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU"
 
  ' Eingaben aus der Registry löschen
  lRet = RegDeleteKey(HKEY_CURRENT_USER, sPath)
 
  ' Fehler aufgetreten?
  If lRet <> ERROR_SUCCESS Then
 
    ' gabs den Registry-Schlüssel nicht?
    If lRet = ERROR_FILE_NOT_FOUND Then
      MsgBox "Die Such-History wurde bereits gelöscht", vbInformation
    Else
      MsgBox "Die Such-History konnte nicht gelöscht werden.", vbExclamation
    End If
 
  Else
    MsgBox "Die Such-History wurde gelöscht.", vbInformation
  End If
 
  ' ********************
  ' Auführen-History
  ' ********************
 
  ' Ort in der Registry wo die Eingabe aus dem Ausführen-Dialog gespeichert sind
  sPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
 
  ' Eingaben aus der Registry löschen
  lRet = RegDeleteKey(HKEY_CURRENT_USER, sPath)
 
  ' Fehler aufgetreten?
  If lRet <> ERROR_SUCCESS Then
 
    ' gabs den Registry-Schlüssel nicht?
    If lRet = ERROR_FILE_NOT_FOUND Then
      MsgBox "Die Ausführen-History wurde bereits gelöscht", vbInformation
    Else
      MsgBox "Die Ausführen-History konnte nicht gelöscht werden.", _
        vbExclamation
    End If
 
  Else
    MsgBox "Die Ausführen-History wurde gelöscht.", vbInformation
  End If
 
End Sub