If MSDetect = "true" Then
on error resume next
Dim i
For i = 2 to 9
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
		Else
		FlashVersion = i
		End If
	Next
End If