on error resume next

flash6Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))  
flash7Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))
flash8Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8")))
flash9Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.9")))
flash10Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.10")))