function checkFlash(ver)
	on error resume next
	checkFlash = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & ver)))
end function