运行时动态创建浏览器控件

需要先把 Microsoft Internet Controls 控件引入工程中；其次在工程配置中，“删除有关未使用的 ActiveX 控件的信息” 不能勾选。

代码如下：

'用户昵称: 留下些什么
'个人简介: 一个会做软件的货代
'CSDN网址：https://blog.csdn.net/zezese
'电子邮箱：[email protected]

Option Explicit

Private WithEvents MyWebBrowser As WebBrowser

Private Sub Command1_Click() '创建

    Set MyWebBrowser = Me.Controls.Add("SHELL.EXPLORER", "MyWebBrowser", Me)
    MyWebBrowser.Visible = True
    MyWebBrowser.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    MyWebBrowser.Navigate "http://www.cppblog.com/Zezese/"
    
End Sub

Private Sub Command2_Click() '移除
    Me.Controls.Remove "MyWebBrowser"
End Sub