lcProgID = "Shell.Explorer.2" #DEFINE HKEY_CLASSES_ROOT -2147483648 loReg = NEWOBJECT("Registry", "registry.prg") lcCLSID = loReg.ReadRegistryString(HKEY_CLASSES_ROOT, lcProgID + "\CLSID" , "") lcActiveXFileName = loReg.ReadRegistryString(HKEY_CLASSES_ROOT, "CLSID\" + lcCLSID + "\InprocServer32" , "") DIMENSION laVerInfo[1] AGETFILEVERSION(laVerInfo, lcActiveXFileName) ? laVerInfo[11]The code is based on http://www.berezniker.com/content/pages/visual-foxpro/verify-activex-presence-and-registration