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