Enumerate Uninstall Registry Key To Get Displayname & Displayversionvalue

I am trying to enumerate the

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall

registry key and check the displayname & displayversion registry value for all the sub keys under the uninstall key then compare the displayname & displayversion value with a if statement.

For example if one of the the displayname = "Adobe Flash Player 10 ActiveX" & displayversion = "10.1.82.76" then textbox.text = "Your adobe flash is up to date"

This is the code I been using to check a specific registry value to see if quicktime 7.67.75.0 is installed i figured it would be best to enumerate the subkeys and check the displayname & displayversion because im checking like 6 programs to see if the version is current.

Dim quicktime As String
quicktime = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall{EB900AF8-CC61-4E15-871B-98D1EA3E8025}", "DisplayVersion", Nothing)

[Code].....