Function VBTestFlashVersion(playerversion)
	Dim axObj
	Dim test
	test = false
	On Error Resume Next
	set axObj = CreateObject("ShockwaveFlash.ShockwaveFlash." & playerversion)
	If IsObject(axObj) Then
		test = true
	End If
	VBTestFlashVersion = test
End Function