[SOLUCIONADO] Problemilla con WebBrowser

[aaronduran2]

Hola. Estoy haciendo un buscador para Goear, y para que añada los enlaces que encuentra en una búsqueda a un ListView, lo que hago es poner el código para ello en el evento NavigateComplete2 del WebBrowser. Esto es lo que tengo:

Código (vb) [Seleccionar] Expandir

Private Sub web_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    Dim sNombreCorto As String
    Dim i As Integer
    For i = 0 To web.Document.links.Length - 1
        If Left(web.Document.links.Item(i), 24) = "http://goear.com/listen/" Then
            sNombreCorto = Mid(web.Document.links.Item(i), 33)
            With lvwBusqueda.ListItems.Add(, , sNombreCorto)
                .SubItems(1) = web.Document.links.Item(i)
            End With
        End If
    Next
    DoEvents
    EliminarDuplicados lvwBusqueda
    iPaginaBusqueda = iPaginaBusqueda + 1
End Sub

Lo que quería hacer era que en cuanto acabase de cargar los enlaces, pasase a la siguiente página de resultados, pero directamente intenta cargar la siguiente y no añade nada.

¿Cómo podría hacerlo?

Gracias de antemano.

[Novlucker]

Cuando navegas una web, debes de esperar que cargue completa, agrega una pausa o sleep mientras el estado del navegador sea busy

Saludos

[aaronduran2]

Vale, ya lo solucioné.

Muchas gracias