Dim RegKey As Microsoft.Win32.RegistryKey
        Dim software() As String
        Try
            'Registry
            RegKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
            software = RegKey.GetSubKeyNames
            For i As Integer = LBound(software) To UBound(software) - 1
                If Not software(i).StartsWith("{") Then
                    TextBox6.AppendText(software(i).ToString)
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Fehler")
        End Try

fg viperbone