Private i, x, fcv
On Error Resume Next
x = null
fcv = 0
For i = 9 To 1 Step -1
Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
fci = IsObject(x)
If fci Then
fcv = CStr(i)
Exit For
End If
Next
x = null
browser_flash_version_vb = fcv