用鼠标点Command1_click按钮与 call Command1_Click,执行效果不一样

用鼠标点Command1_click按钮与 call Command1_Click,执行效果不一样,用鼠标点Command1_click按钮,命令都执行了，用call Command1_Click只执行了WebBrowser1.Document.getElementsByTagName("input")(3).Click,没点投票按钮,是什么原因？
Command1_click 代码 
Private Sub Command1_Click()
WebBrowser1.Document.getElementsByTagName("input")(3).Click
For i = 0 To vDoc.All.length - 1 '检测所有标签
Set vTag = vDoc.All(i)
Print vTag.Value
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
if vTag.Type = "button" And vTag.Value = "投票" Then
vTag.Click '点击提交了，一切都OK了
End If
End If
Next
end sub问题网址：http://vote.t.sina.com.cn/vid=173990
请登陆后测试