How to Block Pop Up with WebBrowser Control

 If WebBrowser1.Url.ToString = "popup url" Then
            WebBrowser1.Navigate("destination url")
        End If

Private Function IsPopupWindow() As Boolean

      On Error Resume Next

      If WebBrowser1.Document.activeElement.tagName = "BODY" Or WebBrowser1.Document.activeElement.tagName = "IFRAME" Then
   
      IsPopupWindow = True

      Else

      IsPopupWindow = False

      End If

      End Function

       

      Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

      Dim frm As Form1

      Cancel = IsPopupWindow

      If Cancel = False Then

      Set frm = New Form1

      Set ppDisp = frm.WebBrowser1.object

      frm.Show

      End If

      End Sub