on error resume next 

flash6Installed = False

flash6Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))