function activexenabled()
 on error resume next
 activex = (NOT IsNull(CreateObject("ScriptBridge.ScriptBridge")))
 activex2 = (NOT IsNull(CreateObject("MSComctlLib.Slider")))
 activex3 = (NOT IsNull(CreateObject("ScriptBridge.ScriptBridge.1")))
 if (activex OR activex2 OR activex3) then
 activexenabled = true
 else
 activexenabled = false
 end if
end function