Function VBGetShockwaveVer(i)
	on error resume next
	Dim swControl, swVersion
	swVersion = "0.0"
  
	set swControl = CreateObject("SWCtl.SWCtl." + CStr(i))
	if (IsObject(swControl)) then
		swVersion = CStr(i) + ".0"
		swVersion = CStr(swControl.ShockwaveVersion(""))
	end if
	
	VBGetShockwaveVer = swVersion
End Function