Function VBGetSwfVer(i)
	On Error Resume Next
	Dim swControl, swVersion
	swVersion = 0
	Set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
	If (IsObject(swControl)) Then
		swVersion = swControl.GetVariable("$version")
	End If
	VBGetSwfVer = swVersion
End Function