function checkActiveXFlash()
on error resume next

For i = 3 To 12
vers = false
flash = "ShockwaveFlash.ShockwaveFlash." & CStr(i)
vers = IsObject(CreateObject(flash))

If (vers <> true) then
checkActiveXFlash = i-1
Exit For
End If
Next

end function