ho provato il codice che mi hai indicato,oviamente associandolo ad un pulsante rinominando il componente webBrowser in webBrowser1 come dichiarato nel mio form...ma ottengo un errore di run time:

metodo execWB dell'oggetto iwebBrowser2 non riuscito

il codice che sto provando è:

Private Sub cmdzoom_out_Click()

Call WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, Nothing, hvar)
Call WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, hvar - 1, Nothing)

End Sub

non comprendo dove è l'errore