vb2010中复制一个现成的按钮Cmd成控件数组，该怎么做？

vb2010中复制一个现成的按钮Cmd成控件数组，该怎么做？最好能提供整个程序。
E-mail:buzgd@qq.com
具有相同事件的PictureBox控件很多，这样的情况下，推荐你用动态生成的方法：

生成PictureBox

Dim WeaponShell(84) As PictureBox
For i = 0 To 83
WeaponShell(i) = New PictureBox
WeaponShell(i).Name = "Picture" & i
WeaponShell(i).Size = New Point(30, 20) '大小
WeaponShell(i).Location = New Point((i Mod 10) * 30, (i \ 10) * 20) '每行10个
WeaponShell(i).Image = ImageList1.Images(i) '从ImageList中取图像
Me.Controls.Add(WeaponShell(i)) '添加控件到窗体
AddHandler WeaponShell(i).Click, AddressOf WeaponShellClick '添加单击事件
Next

编写事件处理：
Private Sub WeaponShellClick(ByVal sender As Object, ByVal e As System.EventArgs)
Dim PictureShell As PictureBox
PictureShell = CType(sender, PictureBox)
MsgBox(PictureShell.Name) '显示点击的图像框名称
End Sub

相关了解……