VB动态创建浏览器控件

1.需要引用 Microsoft Internet Controls。

2.工程配置中，“删除有关未使用的 ActiveX 控件的信息” 不能勾选。

3.具体代码如下

Option Explicit

Private WithEvents MyWebBrowser As WebBrowser

Private Sub Command1_Click() '创建

    Set MyWebBrowser = Me.Controls.Add("SHELL.EXPLORER.2", "MyWebBrowser", Me)

    MyWebBrowser.Visible = True

    MyWebBrowser.Move 0, 0, 8000, 3000

    MyWebBrowser.Navigate ""

End Sub

Private Sub Command2_Click() '移除

    Me.Controls.Remove "MyWebBrowser"

End Sub