on error resume next

If MSDetect = "true" Then
	For i = 2 to 11
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i)))) Then

		Else
			flashinstalled = 2
			flashversion = i
		End If
	Next
	If flashinstalled = 0 Then
		flashinstalled = 1
	End If
End If