Private i, x, MM_FlashControlVersion
On Error Resume Next
x = null
MM_FlashControlVersion = 0
var Flashmode
FlashMode = False
var do_dw_var
var browser_flash_version

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
x = null
FlashMode = (MM_FlashControlVersion >= 6)
do_dw_var = FlashMode
browser_flash_version = MM_FlashControlVersion