&引用；指定的强制转换无效"；在vb.net中创建表单时

我是编程新手，我正在尝试创建一个程序，该程序将返回网站的href链接。然后，链接将显示在文本框中

我已经为代码创建了一个backgroundworker来运行，以便在提取数据时程序会冻结，但是我得到了以下错误：

“System.Windows.Forms.dll中发生“System.InvalidCastException”类型的异常，但未在用户代码中处理 其他信息：指定的强制转换无效。“

如果我能得到任何帮助，我将不胜感激。谢谢

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Me.BackgroundWorker2.RunWorkerAsync()

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    Me.WebBrowser1.Navigate(TextBox1.Text)

End Sub



Private Sub BackgroundWorker2_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork



    Dim pageHTML As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("a")

    For Each pageHREF As HtmlElement In pageHTML

        Dim picurl As String = pageHREF.GetAttribute("href").ToString
        TextBox2.Text = TextBox2.Text & picurl & Environment.NewLine

    Next
End Sub

---

End Class

您能否最小化代码以使问题仍然存在？BackgroundWorker的重点是使用DoWork方法执行长时间运行的任务。如果您想避免在下载和解析网页时锁定用户界面，请使用.Net 4.5中提供的“异步”和“等待”关键字。它们使这些类型的任务更容易编写。