Dim flash_version_countdown, flash_version_check
flash_version_countdown = 20

Do While flash_version_countdown > 0
	On Error Resume Next
	flash_version_check = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & flash_version_countdown & "")))
	If flash_version_check = true Then Exit Do
	flash_version_countdown = flash_version_countdown - 1
Loop

flash_ver_detected = flash_version_countdown