' pre-load flash detection, Windows/IE code
on error resume next

Dim testVersion, testInstall, i
testVersion = 0

For i = 10 To 2 Step -1
	testInstall = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))
	If testInstall = True Then
		testVersion = i
		Exit For
	End If
Next

If testInstall = True Then
	flashInstalled = True
	flashVersion = testVersion
End If