Function VBGetFlashVersion(i)
	on error resume next
	Dim swfControl, swfVersion
	swfVersion = 0
	set swfControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
	if (IsObject(swfControl)) then
		swfVersion = swfControl.FlashVersion()
	end if

	VBGetFlashVersion = swfVersion
End Function