Private i, x
On Error Resume Next
MM_FlashControlInstalled = False
For 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 If
Next