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