怎么使事件等待 Command点击后 运行

如何使事件等待 Command点击后 运行
谢谢 请教下。。。

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

[解决办法]
Private Sub Command4_Click()
call WebBrowser1_DownloadComplete
"填写这里额。。。"
End Sub


[解决办法]
Call WebBrowser1_DocumentComplete(WebBrowser1, "")