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