On Error Resume Next
If gotovb = "true" Then
For i = versionmin To 20 Step 1
Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
plugpresent = IsObject(x)
If  plugpresent Then presence = "true"  
Exit For
Next
Else presence = "false" 
End If