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