如何使InternetExplorer在同一线程中运行？

Question

执行以下代码段时出现错误：

 Dim WithEvents Web As SHDocVw.InternetExplorer 
    Web = New SHDocVw.InternetExplorer

    Sub Web_BeforeNavigate2()
        Web.GetElementByID("ID").value = form1.grid1.get_textmatrix(0,0)

  

错误：“当前线程不在单线程单元中”

Sub Web_OnQuit()
    Me.Close()

  

错误：跨线程操作无效：控制'frmVBbrowser'   从创建该线程的线程之外的其他线程访问。

如何使InternetExplorer在同一线程中运行？