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