gracias idolo...!!!
muchas gracias si me sirvio.. espectacular funciona ahora cuando lo termine lo subire...
una pregunta:
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = List1.ListCount + 1 Then
MsgBox "Termino la lista"
Timer1.Enabled = False
Exit Sub
End If
esto aca me dise q vaya de uno en uno en la lista hasta q termine verdad??
WebBrowser1.Navigate List1.List(i - 1)
Me.Caption = "Navegando en '" & List1.List(i - 1) & "'"
List1.Selected(i - 1) = True
End Sub
"y esto aca q naviege el i" o sea el i seria como el portapapeles :p
by salduos...