on error resume next
instFlashActiveX = false
versFlashActiveX = false
private i, obj
for i = 8 to 1 step -1
   set obj = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
   instFlashActiveX = IsObject(obj)
   if instFlashActiveX then
       versFlashActiveX = cstr(i)
       exit for
   end if
next