Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
        Nav()
 
    End Sub

Private Sub Nav()
 
            web.Navigate("ttp://www.test.de/film/start")
 
            Do
                Application.DoEvents()
                Threading.Thread.Sleep(100)
            Loop While web.ReadyState <> WebBrowserReadyState.Complete
 
            web.Document.GetElementById("start").InvokeMember("click")
 
            count += 1
 
 
    End Sub

Private Sub web_Navigating(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles web.Navigating
 
        If count < anzahl.Text Then
            Nav()
        End If
 
    End Sub