在这个模块中如何得知事件WebBrowser1_DocumentComplete()已经发生过？因为，只有知道了这个事件已经发生过，外部模块才可以使用传输完成

Question

在这个模块中如何得知事件WebBrowser1_DocumentComplete()已经发生过？因为，只有知道了这个事件已经发生过，外部模块才可以使用传输完成的网页内容。
Private Sub OKButton_Click()
   MainForm.WebBrowser1.Navigate "http://www.btophr.com/forum/messanger_ma.asp?action=inbox"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim doc As Object
Dim objhtml As ObjectSet doc = MainForm.WebBrowser1.Document
Set objhtml = doc.body.createTextRange()
Text1.Text = objhtml.htmlText'在外部模块中如何得知该事件执行结束，即如何向外部过程或函数传递一个消息，表示该过程执行完成。
End Sub

Answer 1

建议你将后面这个事件写成一个函数，在OkButtn_Click事件中调用函数即不会出错，一直等到函数执行事件后再执行OkButton_Click事件中函数后面的语句。