Public Sub RekursiveRegistryKeySuche(ByVal Key As RegistryKey)
 
 For Each RegistrySchluesselName As String In Key.GetSubKeyNames()
 
 Dim RegistryWerte As RegistryKey = Key.OpenSubKey(RegistrySchluesselName, True)
 
      For Each WertName As String In RegistryWerte.GetValueNames()
 
      ListBox1.Items.Add(RegistryWerte.Name & " | " & _
      RegistryWerte.GetValue(WertName))
 
      Application.DoEvents()
 
      Next WertName
 
 Next RegistrySchluesselName
 
 Key.Close()
 
End Sub