麻烦了，请看看。我做的是一个类似Tab的控件。和IE7的选项卡一样。原理是这样的，建立一个Picture和一个Label。Index都为0。这样就能通过Load来添加选项卡了。Picture作用是显示背景图片，Label是显示网页标题。添加选项卡容易了，但是关闭就麻烦了。添加的方法是Load Picture1(Picture1.Count)来添加的。我知道Unload可以卸载，但是我要实现的效果是，关闭一个选项卡后，所有选项卡向左边靠拢。请问怎么做。因为关闭的了一个选项卡，不能用For了，而且Count也变了。

不行的。第一次还好。之后关闭多了。For就不管用了。

楼主新建一个工程，添加一个Picture1，Index属性改为0，试一下这个代码Private Sub Form_Click()Dim I As LongFor I = 1 To 10 Load Picture1(I)NextUnload Picture1(5)I = 0Do While I < Picture1.Count If VarType(Picture1(I)) <> vbObject Then Print Picture1(I).Index End If I = I + 1LoopEnd Sub

要代码可以。但是你的邮箱在哪里。我一直在想怎么才能做出来。有个人帮忙更好。我看了云霞散人的代码。测试一下。竟然最后一个不能靠拢，除非Unload的是最后一个。先在再看看zaiduo的。我自认美工还可以，但是代码就不大在行。才疏学浅。见笑了。

知道云霞散人的问题所在了Do While I < Picture1.Count 这里应该是 I <= Picture1.Count或者把Count-1马上动手。。

不好意思啊，上午随便写了一下代码，也没调试，你试试下边这个吧，呵呵Private Sub Form_Click()Dim I As Long, J As LongFor I = 1 To 10 Load Picture1(I)NextUnload Picture1(5)Unload Picture1(8)I = 0Do While I < Picture1.Count If VarType(Picture1(J)) <> vbObject Then Print Picture1(J).Index I = I + 1 End If J = J + 1LoopEnd Sub