请教当点击webbrowser控件中的链接时,怎么获得链接地址

请问当点击webbrowser控件中的链接时,如何获得链接地址?
请问当点击webbrowser控件中的链接时,如何获得链接地址?

[解决办法]
Private Sub Form_Load()
WebBrowser1.Navigate2 "网页地址 "
End Sub


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)
MsgBox URL
End Sub