Function VBGetSwfVer(i)
	on error resume next
	Dim swfVer
	
	swfVer = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))))
	VBGetSwfVer = swfVer
	
	End Function