Private i, x, MM_FlashControlVersion
On Error Resume Next
x = null
MM_FlashControlVersion = 0
var Flashmode5
var Flashmode6
FlashMode5 = False
FlashMode6 = 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
FlashMode5 = (MM_FlashControlVersion = 5)
FlashMode6 = (MM_FlashControlVersion >= 6)
var FlashPlugin
If FlashMode5 = True Then
  FlashPlugin5 = true
Else
  FlashPlugin5 = False
End If
If FlashMode6 = True Then
  FlashPlugin6 =true
Else
  FlashPlugin6 = False
End If