Function VBGetSwfVer(i)
on error resume next
Dim swC, swV
swV=0
set swC=CreateObject("ShockwaveFlash.ShockwaveFlash."+CStr(i))
if (IsObject(swC)) then
swV=swC.GetVariable("$version")
end if
VBGetSwfVer=swV
End Function