'  - Date: 15.09.2004
'  - Version: 1.00
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