' Visual basic helper required to detect Flash Player ActiveX control version information
Function VBGetSwfVer()
	On Error Resume Next
	Dim swControl, swVersion
	swVersion = 0

	Set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash")
	If (IsObject(swControl)) Then
		swVersion = swControl.GetVariable("$version")
			
		tempArray = Split(swVersion, " ")
		tempString = tempArray(1)
		versionArray = Split(tempString, ",")
				
		versionMajor = versionArray(0)
		versionMinor = versionArray(2)
		
		swVersion = versionMajor & "." & versionMinor
		
	End If
	
	VBGetSwfVer = CDbl(swVersion)
End Function