// 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