Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim wbc As WebBrowser = CType(sender, WebBrowser)
        Process.Start(wbc.StatusText)
        e.Cancel = True
    End Sub