动态添加控件到picturebox中，高度溢出了怎么办

用load 动态添加 label控件到picturebox中，当动态添加的label控件太多时，运行出现溢出，好像高度不能超过32000是不是，该怎么解决？ 是不是你先给座标变量赋了值，然后再把这个变量值赋给 TOP 属性了啊？

如：

dim iTop as integer

iTop = 0

for ...

    label(i).top = iTop

    iTop = iTop + ...

next

如果是这样，很有可能问题出来 iTop 的数据类型上，integer 的最大值是 32767


注意：我不知道，您的 LABEL 有多少，如果太多，或者您根本无法确定它最大会有多少，可能超过千位数的最好就不要一次动态加载这么多了，效率明显不行的吧。。。内存消耗太大了，程序容易崩掉啊。。。

尽量：动态加载 LABEL 控件的数量取决于屏幕中可显示的数量，不要太多，做个分页动态翻页就行了；

dim iTop as integer '如果是这样，这里的 integer 改成 long 就解决了。

iTop = 0

for ...

    label(i).top = iTop

    iTop = iTop + ...

next

补充：VB ,  基础类