' 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
   
   MM_FlashControlInstalled = False

   For i = 5 To 1 Step -1
       Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
   
       MM_FlashControlInstalled = IsObject(x)
   
       If MM_FlashControlInstalled Then
   	   MM_FlashControlVersion = CStr(i)
   	   Exit For
       End If
   Next