Function FlashCheck()
	On Error Resume Next
	Dim Flashmode
	FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
	If FlashMode = False Then
		FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
	End If
	If FlashMode = True Then
		FlashCheck = 1
	Else
		FlashCheck = 0
	End If
	End Function