请问怎样捕获webbrowser新窗口的URL？

Question

用WebBrowser1控件打开一个网页,点击页面里flash的按钮，请问怎样拿到这时的URL?
我自己找到一个例子，但是不管用，没有document这个东东
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
         REM 本代码出自罗漫年华,http://hi.baidu.com/fronthua
         Dim urlNew As String = sender.Document.ActiveElement.GetAttribute("href")
         Dim newForm As New Form1
         e.Cancel = True
         newForm.Show()
         newForm.WebBrowser1.Navigate(urlNew)
     End Sub