on error resume next

If MSDetect = "true" Then
	For i = 0 to 9
		IF NOT(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." &i))) Then

		ELSE
			flashversion = i
			flashinstalled = 2
		END If
	Next
End If

If flashinstalled = 0 Then
	flashinstalled = 1
End If
'MsgBox flashversion