VB6.0使用webbrowser显示网页，怎么在点击其中的链接后弹出VB Form

VB6.0使用webbrowser显示网页，如何在点击其中的链接后弹出VB Form？
如题。
请高手指教！

[解决办法]
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)


form2.load
form2.show

end sub