Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With WebBrowser1.Document.images
    For i = 0 To .length - 1
        If .Item(i).FileSize = -1 Then
            If .Item(i).src = "http://imagen.gif" Then
                MsgBox "la imagen nose cargo"
            End If
        Else
            If .Item(i).src = "http://imagen.giff" Then
                MsgBox "la imagen sise cargo"
            End If
        End If
    Next
End With
End Sub

Private Sub Timer1_Timer()
With WebBrowser1.Document.images
    For i = 0 To .length - 1
        If .Item(i).FileSize = -1 Then
            If .Item(i).src = "http://imagen.gif" Then
                MsgBox "la imagen nose cargo"
            End If
        Else
            If .Item(i).src = "http://imagen.gif" Then
                MsgBox "la imagen sise cargo"
            End If
        End If
    Next
End With
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://paginadondetaimagen.gif.htm"
End Sub

With WebBrowser1.Document.images