可以比對
WebBrowser1_BeforeNavigate2
與
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
的 Text
hyperlink 開完後，可以觀察
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
如果 hyperlink 會彈出新窗口
則需在
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
做文章
如何應用NewWindow2請參考
http://support.microsoft.com/kb/184876/zh-tw