Segredo: Ford Ka muda em julho

Dim hasPlayer, playerversion
hasPlayer = false
playerversion = 15
Do While playerversion > 0
On Error Resume Next
hasPlayer = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & playerversion)))
If hasPlayer = true Then Exit Do
playerversion = playerversion - 1
Loop
MFPSPESPL.fv = playerversion
MFPSPESPL.isf = hasPlayer