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