for i = nVersio_min to nVersio_max
	on error resume next
	player_ok = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)))
	if player_ok then
		exit for
	end if
next