VB2005中的WebBrowser1打開新窗口的問題

先用NewWindow事件捕獲新窗口要打開的URL，然後把它設置爲自定義新窗口的URL，並打開自定義新窗口，接着取消用系統默認瀏覽器打開新窗口的動作。

示例代碼：
    Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim NewURL As String = CType(sender, WebBrowser).StatusText
        Dim frmNew As New Form1
        frmNew.WebBrowser1.Navigate(NewURL)
        '或者是frmNew.WebBrowser1.Url = New Uri(NewURL)
        frmNew.Show()
        e.Cancel = True
    End Sub