线程中的WebBrowser问题

我想在线程中使用WebBrowser，例如：
        Dim a
        Dim s = ""
        For Each a In Me.WebBrowser1.Document.All

            s += a.tagname + vbCrLf

        Next

我想用这段代码遍历WebBrowser中的所有的标记
在按钮里面就运行正常，但一放到线程里运行就出现错误了。
========================================================================
未处理 System.InvalidCastException
  Message="指定的转换无效。"
  Source="System.Windows.Forms"
  StackTrace:
       在 System.Windows.Forms.UnsafeNativeMethods.IHTMLDocument2.GetLocation()
       在 System.Windows.Forms.WebBrowser.get_Document()
       在 System.Windows.Forms.WebBrowser.get_ReadyState()
       在百度空间.Form1.zhuce() 位置 E:\vs2005\test\test\Form1.vb:行号 25
       在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       在 System.Threading.ExecutionContext.runTryCode(Object userData)
       在 System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData)
       在 System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state)
       在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       在 System.Threading.ThreadHelper.ThreadStart()
========================================================================

高手请帮忙，我隔一会就来看看，如果有答案了我立即给分 --------------------编程问答-------------------- 放在单线程中使用。设置线程的属性。 --------------------编程问答-------------------- 最好你还是用httpwebrequest来做这种自动注册之类的。碰到注册码你弹出个窗口让他自己填。
看看你的WebBrowser1再做这个线程之间是否已经complete

补充：.NET技术 ,  VB.NET