如何使事件等待 Command点击后 运行

Question

谢谢  请教下Private Sub Command4_Click()
"填写这里额"
End Sub
Private Sub WebBrowser1_DownloadComplete()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Length - 1 '检测所有标签
   If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
     Set vTag = vDoc.All(i)
     If vTag.Type = "text" Then '检测类型
...
..
.
End Sub

Answer 1

Private Sub Command4_Click()
    call WebBrowser1_DownloadComplete     
"填写这里额"
End Sub

Answer 2

Private Sub Command4_Click()
Call Form_Load
Call WebBrowser1_DownloadComplete
Call WebBrowser1_DocumentComplete
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim doc As Object, i
    Set doc = WebBrowser1.Document
    For Each i In doc.getElementsByTagName("div")
....
谢谢 差不多搞定了。 只是最后一个
“Call WebBrowser1_DocumentComplete”
报错：
“必选参数”

Answer 3

Call WebBrowser1_DocumentComplete(WebBrowser1, "")