如何动态的加载和卸载控件数组
现有一控件数组CONTROLSA,在使用过程中，每需要一个控件，就动态的加载一个此控件，使用完后立即卸载此控件，当然每个控件的生命周期不一样，有的时间长，有的时间短，需要使用的时间决定此控件的生命周期，因此此时间的长短是随机的。
此控件数组最多时有100个元素。
当控件的最大索引值达到100后的5分钟内，又有1个控件被卸载，比如被卸载的是CONTROLS(87)，当有新的控件需要被加载时,我如何判断出CONTROLS(87)已被卸载，以便于重新加载CONTROLS(87)
[解决办法]
控件数量不多的话还是别卸载了,与其这么费劲的都判断状况,还不如留着下次重用好了,这样程序速度也能稍快些,控件成了数组部分动态事件就不怎么好控制了,控件名的特性也有变化.
[解决办法]
dim xx as long
xx=87
on error resume next
ReLoad:
load CONTROLS(xx) '尝试加载控件
if err.number<>0 then '出错，说明控件已存在，Index加一，直至加载成功
err.clear
xx=xx+1
goto ReLoad
end if
