关于runtime时添加的control的事件问题，急！！

Question

Option ExplicitPrivate WithEvents NewPicture As PictureBox
Private mCol As New Collection
Private Num As IntegerPrivate Sub Command1_Click()
    Set NewPicture = Form1.Controls.Add("VB.picturebox", "image" & Num)
    NewPicture.Visible = True
    NewPicture.Move 2000 * Num
    mCol.Add NewPicture
    Num = Num + 1
End SubPrivate Sub newpicture_click()
    MsgBox "NewPicture"
End Sub这段code,是在一个form中，有一个command button，当这个button被按下后，就会有一个新的picturebox被添加到form中。反复按，就不断有新的picturebox生成。我定义的picturebox是withevents，那么就可以对新生成的picturebox的事件进行写code，例如写picturebox的click event。但是，如果重复按form中的button，编写好的picturebox的click event事件就只对最后一个生成的picturebox起作用。我想请问，有没有办法让click event对所有的picturebox都起作用呢？或者说，有没有办法令前面生成的picturebox，也能在鼠标点击的时候，做出反应？

Answer 1

做成控件数组先放一个隐藏得PictureBox控件，并且设其Index = 0。新的控件都可以通过Load PictureBox(新索引)来载入。
处理事件的过程当然就是PictureBox1_Click(Index As Integer)了