在中Vb怎样循环添加控件

建立Image1(0) [index=0]
然后循环，用Load Image1(i)动态建立

事件是Image1的事件，对Index进行判断即可。

Load Image(i)
然后SetParent将Image放入PictureBox [不知道有没有更简单办法]

Dim i '全局变量
(先在picture1上画一个image(0),命名为a(0))
Private Sub a_Click(Index As Integer)
Select Case Index
Case 1
Form2.Show
Case 2
Form3.Show
Case 3
Form1.Show
End Select
End Sub
Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mc As String
i = i + 1
Load a(i)
With a(i)
.Visible = True
.Picture = LoadResPicture(101, vbResBitmap)
.Top = Y
.Left = X
End With
end sub

没说明白