Function ieFlashDetect(version)
on error resume next
ieFlashDetect = false
ieFlashDetect = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & version))
End Function