vb6.0中webbrowser 模拟点击事件无效，但鼠标手动点击有效

vb6.0中webbrowser 模拟点击事件无效，但鼠标手动点击有效

网页源码如下：

VB6.0编程如下：

Dim X As Object
For Each X In WebBrowser1.document.getElementsByTagName("a")
If Trim(X.innerText) = "学习详情" Then
X.Click
Exit For
End If
Next

VB代码操作无效，在webbrowser环境下，鼠标点击 学习详情 这个超链接，能正常跳转。