' 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