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