function isFlashIE
	isVersion = -1
	on error resume next
	if IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) then
		isVersion = 3
	end if
	if IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) then
		isVersion = 4
	end if
	if IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) then
		isVersion = 5
	end if
	isFlashIE = isVersion
end function