Improve company productivity with a Business Account.Sign Up
Public Sub checkVersion()
Dim regKey As RegistryKey
Dim versionNo As Decimal
Dim msgboxResponse As Integer
Dim curNo As Decimal = 10
regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Flash Player ActiveX", True)
versionNo = regKey.GetValue("VersionMajor", 0.0)
If versionNo < curNo Then
msgboxResponse = MsgBox("Upgrade Required")
Catch ex As Exception
msgboxResponse = MsgBox("Installation Required")
Open in new window
Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.