Private count As Integer
 
    Private Sub NavStart()
        web.Navigate("http://www.test.de/film/start")
        Do
            Application.DoEvents()
            Threading.Thread.Sleep(100)
        Loop While web.ReadyState <> WebBrowserReadyState,Complete
 
        web.Document.GetElementById("start").InvokeMember("click")
    End Sub
 
    Private Sub web_Navigating(...) Handles web.Navigating
 
        count += 1
        If count < max  Then
           NavStart()
        End if
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist