vb如何动态添加webbrowers控件

Option Explicit
Private WithEvents web1 As WebBrowser
Private Sub Command1_Click() '创建
Set web1 = Me.Controls.Add("SHELL.EXPLORER.2", "web1", Me)
web1.Visible = True
web1.Move 0, 0, 1000, 1000
web1.Navigate "http://community.csdn.net/Expert/topic/3273/3273662.xml?temp=.6609766", 0
End Sub

Private Sub Command2_Click() '移除
Form1.Controls.Remove "web1"
End Sub

做多选项卡浏览器用到的，可以添加很多个WebBrowser
你画一个command1和command2
再画一个webbrowser1,设置index属性为0，记得，一定要设置
================代码===================
Dim colBrowser As New Collection

Function addBrowser() As Long
Dim cWb As WebBrowser, i As Long
i = colBrowser.Count
Load WebBrowser1(i)
Set cWb = WebBrowser1(i)
cWb.Visible = True
cW