FUNCTION IE4Flash()
	on error resume next
	IE4Flash = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
END FUNCTION