on error resume next
for i = 5 to 10
test = 0
test = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))
if (test) then FLA=i end if
next