rem /*
' * $Revision: 1.8 $ $Date: 2007/11/17 18:05:12 $

on error resume next

If MSDetect = "true" Then
	Dim swControl, swVersion
	swVersion = 0

	For i = 2 to 10
		set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
		if (IsObject(swControl)) then
			swVersion = swControl.GetVariable("$version")
			' "WIN 8,0,22,0"
		End If
	Next

	If swVersion > 0 then
		Dim swVersionA
		swVersionA = Split(Split(swVersion, " ")(1), ",")
		flashy = swVersionA(0) + (swVersionA(2) / 100)
	End if

End If

rem */