Function VBFlashCanPlay(i)
	on error resume next
	Dim FlashCanPlay
	If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)) Then
		FlashCanPlay = true
	Else
		FlashCanPlay = false
	End If
	VBFlashCanPlay = FlashCanPlay
End Function