      <!-- //
          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
      // -->