<!-- // Visual basic helper required to detect Flash Player ActiveX control version information
Function VBGetSwfVer(i)
  on error resume next
  Dim swControl, swVersion
  swVersion = 0
  
  For i=1 to 25
	  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
	  if (IsObject(swControl)) then
	    swVersion = swControl.GetVariable("$version")
		i = 25
	  end if
	  VBGetSwfVer = swVersion
  Next
  
End Function
// -->