''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '  Macromedia Flash Dispatcher -- a scriptable detector for Flash Player' ' '  copyright (c) 2000 Macromedia, Inc.' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 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, xOn Error Resume NextMM_FlashControlInstalled = FalseFor i = 6 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 IfNext