on error resume next
if msdetect=1 Then
flashversion=0
for i=2 to 8
If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash."&i)))Then
Else
flashversion=i
End if
Next
End if