<code>Option Explicit
Private Declare Function RegDeleteValue Lib "advapi32.dll" _
  Alias "RegDeleteValueA" (ByVal hKey As Long, _
  ByVal lpValueName As String) As Long
 
Private Declare Function RegCloseKey Lib "advapi32.dll" _
  (ByVal hKey As Long) As Long
 
Private Declare Function RegCreateKey Lib "advapi32.dll" _
  Alias "RegCreateKeyA" (ByVal hKey As Long, _
  ByVal lpSubKey As String, phkResult As Long) As Long
 
<font color=green>' Starten der Suche</font>
Private Sub Command1_Click()
  Dim SO As SearchOptions
  Dim Gefunden() As String
  Dim I As Integer
 
  Command1.Enabled = False
  List1.Clear
 
  With SO
    <font color=green>'Exakte Suche</font>
    .HowToSearch = StringExists
    <font color=green>'Abschnitt "Locale Machine"</font>
    .SearchMainKey = HKEY_LOCAL_MACHINE
    <font color=green>'Nach Text1 suchen</font>
    .SearchString = Text1.Text
    <font color=green>'Starten: ganz vorne</font>
    .StartSearchPath = ""
    <font color=green>'Unterordner durchsuchen</font>
    .SearchSubfolders = True
    <font color=green>'KeyNames suchen</font>
    .FindKeys = True
    <font color=green>'ValueNames Suchen</font>
    .FindValueNames = True
    <font color=green>'Values Suchen</font>
    .FindValues = True
  End With
 
  StopSearch = False
  Label2.Caption = "Suche..."
  DoEvents
 
  <font color=green>'Suche starten</font>
  FindString SO, Gefunden
  Label2.Caption = "Einen moment bitte..."
  DoEvents
 
  <font color=green>'Falls nichts gefunden</font>
  On Error Resume Next
  List1.Clear
  For I = 0 To UBound(Gefunden)
    <font color=green>'StartSearchPath durch ".." ersetzen
    'und in die Lisbox übertragen</font>
    List1.AddItem Replace(Gefunden(I), _
      SO.StartSearchPath, "..", 1, 1)
  Next I
  Label2.Caption = "Gefunden: " & List1.ListCount
  Command1.Enabled = True
End Sub
 
<font color=green>'Stoppen der Suche</font>
Private Sub Command2_Click()
 StopSearch = True
End Sub
 
<font color=green>' Eintrag aus Registry löschen</font>
Private Sub Command3_Click()
  Dim KeyName As String
  Dim ValueName As String
  Dim Daten() As String
  Dim vRet As Variant
 
  Daten = Split(List1.List(List1.ListIndex), vbCrLf)
 
  KeyName = Daten(0)
  ValueName = Daten(1)
 
  If MsgBox("Wirklich löschen?", 292) = vbYes Then
    RegCreateKey HKEY_LOCAL_MACHINE, KeyName, vRet
    RegDeleteValue vRet, ValueName
    RegCloseKey vRet
    List1.RemoveItem List1.ListIndex
  End If
End Sub
 
Private Sub List1_Click()
  Command3.Enabled = (List1.ListIndex >= 0)
End Sub
 
Private Sub List1_GotFocus()
  Command3.Enabled = (List1.ListIndex >= 0)
End Sub</code>