一种笨方法，给获得的link都加上target="_blank"属性，就会在新窗口中打开链接，然后在newwindow2事件中Set ppDisp = Web(0).Application.

期待更好的方法

Option Explicit
Dim Flag As Boolean

Private Sub Check1_Click()
  Flag = Check1.Value
End Sub

Private Sub Form_Load()
  WebBrowser1.Navigate "www.163.com"
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)
  If Flag Then
    Cancel = True
    WebBrowser2.Navigate2 URL, Flags, TargetFrameName, PostData, Headers
  End If
End Sub

其实这方法我用过。这样确实可以使在新窗口打开。但由于只是对页面中的一部分link需要在其它窗口打开，而获得的link.click之后，在beforenavigate2事件里的url是不确定的，无法筛选，所以，不是很适用。
不过，不用再考虑这个问题了。

八成想搞个作弊程序，想实现自动点击吧，呵呵