Option Explicit
 
Private Sub Form_Load()
    With List1
        .AddItem "http://www.google.com.ar/"
        .AddItem "http://foro.elhacker.net/index.php"
        .AddItem "http://ar.yahoo.com/"
        .AddItem "http://www.facebook.com/"
        .AddItem "http://www.youtube.com/"
    End With
 
    Timer1.Interval = 5000
    Timer1.Enabled = True
End Sub
 
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
 
    WebBrowser1.Navigate List1.List(i - 1)
    Me.Caption = "Navegando en '" & List1.List(i - 1) & "'"
    List1.Selected(i - 1) = True
End Sub