VB动态添加WebBrowser控件，并拦截弹出窗口(不用引用任何组件)

WBCustomizer.dll 这个

      1、注册:：在开始菜单中输入RegSvr32    路径（WBCustomizer.dll文件所在的绝对路径），若果注册成功，会提示

      2、引用 ：在工程--》引用中，选择microsoft webbrows customizer sample object

      3、使用：

      如下举例

    Dim CustomWB As WBCustomizer
    Set CustomWB = New WBCustomizer
    With CustomWB
        .EnableAccelerator vbKeyN, vbKeyControl, True  '表示启用ctrl+N键
        .EnableAccelerator vbKeyO, vbKeyControl, fasle  '禁用ctrl+O键
        .EnableContextMenus = True  '启用右键菜单 若赋值false   禁用右键菜单
        .EnableAllAccelerators = True
        Set .WebBrowser = WebBrowser1
    End With

新建空白窗体，然后粘帖下面代码：

Option Explicit
Public WithEvents br As VBControlExtender

Private Sub br_ObjectEvent(Info As EventInfo)
    If Info.Name = "NewWindow2" Then
        'Dim fm As New Form1
        'fm.Show
        'Info.EventParameters(0) = br.object ‘根据需要可实现在自己的新开窗口打开弹出窗口
        Info.EventParameters(1) = True '拦截弹出窗口
    End If
End Sub

Private Sub Form_Click()
    br.object.Navigate "http://www.baidu.com/"
End Sub

Private Sub Form_Load()
    On Error Resume Next
    If Licenses.Count = 0 Then Licenses.Add "Shell.Explorer.2", "Shell.Explorer.2"
    Set br = Me.Controls.Add("Shell.Explorer.2", "br")
    'br.Width = 150 * Screen.TwipsPerPixelX
    'br.Height = 50 * Screen.TwipsPerPixelY
    br.Visible = True
End Sub