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