on error resume next
var FlashHier

FlashHier = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
If FlashHier = True Then
	FlashMode = 3
	FlashHier = False
	FlashHier = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
	If FlashHier = True Then
		FlashMode = 4
		FlashHier = False
		FlashHier = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
		If FlashHier = True Then
			FlashMode = 5
		End If
	End If
End If