Function HasFlashVB(version)
	HasFlashVB = false
	on error resume next
	HasFlashVB = ( IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & version)))
End Function