Private i, x, MM_FlashControlVersion
	On Error Resume Next
	x = null
	MM_FlashControlVersion = 0
	var FlashMode
	var FlashCheckMode
	FlashMode = False
	FlashCheckMode = False
	For i = 9 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
	FlashMode = (MM_FlashControlVersion >= 6)
	FlashCheckMode = (MM_FlashControlVersion >= 6)