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