Hjelp med html fungsjon

[1steinar]

Jobber med en fungsjon som skall gi deg en liste over alle linkene på en side i webbrowser å jeg har brukt denne koden:

 

		Dim Linker As HtmlElementCollection

	Linker = WebBrowser1.Document.Links

	For Each spesifikkeLink As HtmlElement In Linker
		ListBox1.Items.Add(spesifikkeLink.OuterHtml)
	Next

Den virker men den går litt treigt, er det noen som kan fåreslå en raskere kode?

Endret 29. desember 2008 av 1steinar