以下是引用lowxiong在2013-2-17 13:06:39的发言：

查属性index值，存在就加载了，否则可load

以下是引用风吹过b在2013-2-17 16:47:33的发言：

VB 对 动态控件的 下标，不要求 序列。
 
那就偷懒吧。你直接继续加载下去就是了。
maxindex =maxindex +1
load   ??(maxindex)
。。。。
 
如果是控件的 index 绑定了某个数组，那么在数组元素里再保存该控件对应的控件的 index  
 
如果要遍类时，使用  
dim a as ??
for each a in ??
debug.pring  a.index
next
来访问该控件的所有的成员。

以下是引用lowxiong在2013-2-18 11:45:12的发言：

比如你有一个image控件数组img1，可以肯定img1(0)是存在的，你想加载img1(5),你不清楚img1(5)是否已经加载，可以设计一个函数检测，根据函数返回值判断这个控件是否加载，可以用两种方法设计这个函数。
'方法一，用错误捕获
function testImgLoadErr(index as integer) as boolean
  on error resume next
  dim a as integer
  testImgLoadErr=true  '默认控件未加载
  err.clear
  a=img1(index).index
  if err.number=0 then  testImgLoadErr=false  '如果不存在错误码，说明该控件已加载，返回值为假
end function

'方法二，遍历已加载控件，比较欲加载的控件系列号是否存在，存在返回假，不存在返回真
function testImgLoadAll(index as integer) as boolean
  dim a as img
  testImgLoadAll=true  '默认控件未加载
  for each a in img1
    if a.index=index then
      testImgLoadAll=false  '如果存在该索引值，说明控件已加载
      exit for
    end if
  next
end function

'调用方法
if testImgLoadAll(5) then load img1(5)  '使用方法二加载控件
if testImgLoadErr(6) then load img1(6)  '使用方法一加载控件

以下是引用lowxiong在2013-2-18 13:04:11的发言：

运行状态下可以动态加载控件，但动态加载控件数组的方法我还没找到，似乎只能在设计阶段加载控件数组。动态加载image的代码如下
dim img1(100) as image,i as integer
for i=0 to 100
  set img1(i)=controls.add("vb.image","img" & trim(str(i))
  img(i).width=600
  img1(i).height=600
next