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