Function GetFlVer()
	Dim tmp, i
	GetFlVer = 0
	on error resume next
	For i = 25 To 1 Step -1
		set tmp = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
		if (IsObject(tmp)) then
		GetFlVer = tmp.GetVariable("$version")
		i=0
		end if
	Next
End Function