On Error Resume Next
flash2 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.2")))
flash3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
flash4 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
flash5 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
flash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))

if flash6 then
	actual = 6
elseif flash5 then
	actual = 5
elseif flash4 then
	actual = 4
elseif flash3 then
	actual = 3
elseif flash2 then
	actual = 2
end if

if actual >= minimum then
	hasRightVersion = true
else
	hasRightVersion = false
end if