Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
	Dim lst As New List(Of String)
	FindLinks(Browser.Document.Window, lst)
End Sub
 
Private Sub FindLinks(ByVal win As HtmlWindow, ByVal lst As List(Of String))
	Try
		Dim links = From a In win.Document.GetElementsByTagName("a").Cast(Of _
  HtmlElement)() _
		  Let href = a.GetAttribute("href") _
		  Where Not String.IsNullOrEmpty(href) _
		  Select href
 
		lst.AddRange(links)
 
		For Each subWin As HtmlWindow In win.Frames
			FindLinks(subWin, lst)
		Next
 
	Catch ex As Exception
		Debug.WriteLine(ex.ToString)
		Throw
	End Try
End Sub