on error resume next
	If MSDetect = "true" Then
		Dim i
		For i = 2 to 6
			If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
	
			Else
				flashinstalled = 2
				flashversion = i
			End If
		Next
		If flashinstalled = 0 Then
			flashinstalled = 1
		End If
	End If