Prova a gestire l'Evento StateChange dell'oggetto Inet.

Ad esempio:

codice:
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Select Case State
        Case 11  ' C'è un errore (icError)
            .....
    End Select
            
End Sub
Ciao :gren: