回复：IE7.0终于完成，提供下载，期待您的宝贵意见

这个实现方法就是通过Load添加选项卡。

为了容易区分。把Picture1改成TPicture(放标题的),Picture2改成WPicture(做Webbrowser的容器。用处后面会说)

Private Sub UserControl_Initialize()
Label1(0).AutoSize = True
Label1(0).Container = TPicture(0)
WB(0).Container = WPIcture(0)
TPicture(0).Move 0, 0
WPIcture(0).Move 0, TPicture(0).Height
Label1(0).Move (TPicture(0).Width - Label1(0).Width) / 2, (TPicture(0).Height - Label1(0).Height) / 2
WB(0).Move -20, -20, WPIcture(0).Width + 40, WPIcture(0).Height + 40 '把WB放到Picture容器里的作用是，去掉WB打开网页时出现凹入的3D效果
End Sub

不感兴趣

开通SVIP免广告

现在编写核心的部�

Public Sub NewTab(URL As Variant)
'我这里Load 新的Index为1的。当然，这个是无法实现打开很多"选项卡"的
'如何去确定这些要Load的Index呢，自己想吧。实在不行的再发邮件问我
Load TPicture(1)
Load WPIcture(1)
Load Label1(1)
Load WB(1)

'下面使旧的"选项卡看不见
WPIcture(0).Visible = False
TPicture(0).BackColor = &H808080 '改变背景色让用户明白区分哪个是没有选项卡是失去焦点的
'当然你也可以像我那样用一幅图作背景，这样效果特棒

'设置新的"选项卡
TPicture(1).Move TPicture(0).Width, 0
TPicture(1).Visible = True

Set Label1(1).Container = TPicture(1)
Label1(1).Move (TPicture(1).Width - Label1(1).Width) / 2, (TPicture(1).Height - Label1(1).Width) / 2
Label1(1).Visible = True

WPIcture(1).Move 0, TPicture(1).Height
WPIcture(1).Visible = True

WB(1).Navigate URL 'Webbrowser转到上面的参数URL
Set WB(1).Container = WPIcture(1)
WB(1).Move -20, -20, WPIcture(1).Width + 40, WPIcture(1).Height + 40 '把WB放到Picture容器里的作用是，去掉WB打开网页时出现凹入的3D效果
WB(1).Visible = True
End Sub

如何实现关闭选项卡呢？
我是这样的。在选项卡上添加一个关闭按钮。添加两个List。
List1保存已经Load的Index，List2保存已经"Unload"的Index。但是我的并不是真正的Unload了，而是把Visible设置为False了，下次再新建选项卡的时再使List2.List(0)的Visible可见。这也许是为什么占用内存那么高的原因所在了。我改进一下试试。

因为List1是保存已经Load的Index所以最新的Index都是在List1的最底部。

关闭一个选项卡，全部选项卡向左靠，只要让List1.List(0)靠近选项卡(0)就行了，后面的一次靠向List1.List(n-1)。