	<!-- // Visual basic helper required to detect Flash Player ActiveX control version information	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	// -->