Dim cRegistry As New clsRegistry, cSubKeys As Collection, i%
  Dim sKey$, sValue$
  sKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
  cRegistry.RootKey = HKEY_LOCAL_MACHINE
  If cRegistry.GetSubKeys(sKey, cSubKeys) Then
      For i = 1 to cSubKeys.Count
      If cRegistry.GetValue(sKey & "\" & cSubKeys(i), "DisplayName", sValue) _
        Then
          Debug.Print sValue
      End If
    Next i
  End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.