Loop links in a page with Webbrowser control

Good evening! I need to access a page where it contains several links. I need to enter each of these links and load the next page to also collect the links of the second page invoked. I was able to find the links, but when I run the invoker, it only does the last link that it got in the loop. the command I use is this:

Dim links2 As HtmlElementCollection = WebBrowser1.Document.Window.Frames(0).Document.GetElementsByTagName("A")

For Each link2 As HtmlElement In links2
  link2.InvokeMember("Click")
Next

Does anyone have an idea?

Thank you