Private i, x
On Error Resume Next
swfpReady = False
For i = 5 To 1 Step -1
	Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
	swfpReady = IsObject(x)
	If swfpReady Then
		PlayerVersion = CStr(i)
		Exit For
	End If
Next
Rem