Imports System
Imports Microsoft.Win32
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myCPUDescription As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", "No CPU Found").ToString.Trim
 
 ComboBox1.Items.Add(myCPUDescription)
 
end sub

        Dim registrykeys(5) As String
'fill your keys
        For Each key As String In registrykeys
            ComboBox1.Items.Add(My.Computer.Registry.GetValue(key, "property", "default"))
        Next

( static void GetInstalled()
{
      string uninstallKey = @"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall";
      using (RegistryKey rk = Registry.LocalMachine.OpenSubKey(uninstallKey))
      {
            foreach (string skName in rk.GetSubKeyNames())
            {
                  using (RegistryKey sk = rk.OpenSubKey(skName))
                  {
                        Console.WriteLine(sk.GetValue("DisplayName"));
                  }
            }
      }
})

 
 
     Private Shared Sub GetInstalled()
         Dim uninstallKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
         Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey(uninstallKey)
             For Each skName As String In rk.GetSubKeyNames()
                 Using sk As RegistryKey = rk.OpenSubKey(skName)
                     Console.WriteLine(sk.GetValue("DisplayName"))
                 End Using
             Next
         End Using
     End Sub

Dim uninstallKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
        Dim rk As RegistryKey
        rk = Registry.LocalMachine.OpenSubKey(uninstallKey)
        For Each key As String In rk.GetSubKeyNames()
            Using sk As RegistryKey = rk.OpenSubKey(key)
                Console.WriteLine(sk.GetValue("DisplayName"))
            End Using
        Next
    End Sub