如何捕捉 WebBrower 中在一个链接上发生的单击事件？

请参考下列事件：
BeforeNavigate2 事件，当链接开始时的事件
NewWindow2事件，是当链接打开新窗口的事件
NavigateComplete2 当导航结束的事件

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub