' Check for the Flash ActiveX control.
'
' This script will be ignored by browsers that do not support
' VBScript (although Microsoft Internet Explorer will warn the
' user that a script in an unsupported language has been
' encountered if the user has checked "Show unsupported scripting
' language errors" in Preferences->Web Browser->Web Content).
'
' This technique due to Jeff Brown and Rafael M. Muņoz of
' Microsoft Corporation.  Version testing adapted from Macromedia
' Flash Technical Note #12853.
   
Private i, x
   
On Error Resume Next
   
installed = False

For i = 10 To 1 Step -1
	Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
   
	installed = IsObject(x)
   
	If installed Then
		version = CStr(i)
		Exit For
	End If
Next