Vale, ya lo solucioné.
Muchas gracias
Muchas gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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