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