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