Function detectWinFlash()
	on error resume next
	has_flash3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
	has_flash4 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
	has_flash5 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
	has_flash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
	has_flash7 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))
	
	detectWinFlash = 0
	If has_flash3 then
		detectWinFlash = 3
	End If
	If has_flash4 then
		detectWinFlash = 4
	End If
	If has_flash5 then
		detectWinFlash = 5
	End If
	If has_flash6 then
		detectWinFlash = 6
	End If
	If has_flash7 then
		detectWinFlash = 7
	End If
End Function