on error resume next
For i = 2 to 10
	If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
	Else
		shockMode = 1
		shockVersion = i
	End If
Next