Dim RegKey As Microsoft.Win32.RegistryKey
        Dim SubRegKeyName As String
        Dim subkeys() As String
        Dim software As String
 
        Try
            'Registry
            RegKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
            subkeys = RegKey.GetSubKeyNames
 
            ' Key auslesen
            For i1 As Integer = 0 To RegKey.SubKeyCount - 1
                SubRegKeyName = subkeys(i1).ToString
                software = ""
                Try
                    software = RegKey.OpenSubKey(SubRegKeyName).GetValue( _
                      "DisplayName").ToString
                Catch ex As Exception
 
                End Try
                If software <> "" Then
                    ListBox1.Items.Add(software)
                End If
            Next
 
        Catch ex As Exception
            MessageBox.Show("Fehler")
        End Try

fg viperbone