on error resume next
If MSDetect = "true" Then
	For i = 2 to 10
		If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)) Then
			swf = i
		End If
	Next
End If