
<!-- // Visual basic helper required to detect Flash Player ActiveX control version information
Function LVLVBGetSwfVer(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

	LVLVBGetSwfVer = swVersion
	
End Function
// -->