ragazzi ho provato a vedere in giro ho trovato questo esempio che non funziona
vi metto un esempio di sito dove non funziona e non è il primo

Dim i As Integer
For i = 0 To d.images.length - 1
If d.images.Item(i).src = "https://login.libero.it/site_images/entra.gif" Then
MsgBox "Going to click on VBF logo..."
d.images.Item(i).Click
Exit Sub
End If
Next i

provato nessun errore ma non clicca nel pulsante entra tutto il resto funziona, tranne il click. nessuno può darmi una mano?

d sta per variabile settata

Public d As IHTMLDocument3
Public el As IHTMLElement

Set d = WebBrowser1.document