Hey, I am trying to enumerate the

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

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_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{EB900AF8-CC61-4E15-871B-98D1EA3E8025}", "DisplayVersion", Nothing)
quicktime = (quicktime)

If quicktime = "7.67.75.0" Then quicktime1.Text = " Quicktime 7.67.75.0 is installed" Else quicktime1.Text = " Quicktime 7.67.75.0 is not installed"

If quicktime = "7.67.75.0" Then quicktime1.ForeColor = Color.Green Else quicktime1.ForeColor = Color.Red


I'm new to VB any help would be great!!!

Im using vb 08