' VB Script Document
Private i, x, ControlVersion
	ON ERROR RESUME NEXT
	x = null
	ControlVersion = 0
	var Flashmode
	FlashMode = False
	For i = 9 To 1 Step -1
		Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
		ControlInstalled = IsObject(x)
		If ControlInstalled Then
			flash = CStr(i)
			Exit For
		End If
	Next