例子代码：判断控件（特别是控件数组）是否存在

我这个可以动态加栽控件。
在窗体中放置一个Picture控件，复制粘贴，再增加一个数组控件。
删掉Picture1(1).当前窗体只有一个控件Picture1(0).
dim M as integer  '需要的控件总数
dim i as integer
i=5
for i=1 to m
   if i>picture1.count then load picture1(i-1)
next i
动态卸载控件的方法
for i=0 to picture1.count-1 '可以根据需要指定要卸载的控件
   unload picture1(i)
next i
这样就可以根据需要动态使用控件，减少资源浪费.
做电子像薄时特别有用。