'  - Author(s): J.Leuckel
'  - Date: 15.09.2004
'  - Version: 1.00
'  - Description: checking existence and version of Flash-plugin for MSIE
'  -
'  - Change history:
'  -
Private i, x
On Error Resume Next
MM_FlashControlInstalled = False
If MSDetect = True Then
  For i = 20 To 1 Step -1
    Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
    MM_FlashControlInstalled = IsObject(x)
    If MM_FlashControlInstalled Then
       MM_FlashControlVersion = CStr(i)
       pluginVersion = MM_FlashControlVersion
       Exit For
    End If
  Next
End If