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