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