on error resume next
flash2Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.2")))
flash3Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
flash4Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
flash5Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))