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