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