在窗体上动态复制

Question

在窗体上放置了一个图标picture1，为了程序的实现需要动态的添加若干，假设5个吧，请问怎么实现

Answer 1

设计环境下设置picture1的index=0运行时添加图片的代码：
load picture1(1)
with picture1(1)
    .move 100,100,1000,100
    .picture=loadpicture(...)
    .visible=true
end with

Answer 2

动态增加控件！！将picture1的Index设为0
     for i = 1 to 5
         load picture1（i）
         picture1(i).Visvise=True
         picture1(i).move 100*i,100 * i
     next i