on error resume next
		
If bIsMicrosoft = true Then
	For i = 2 to 6
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			bIsFlashInstalled = true
			intFlashVersion = i
		End If
	Next
End If