VB 复制N个按钮问题

当你复制COMMAND控件的时候，VB会提示是否建立COMMAND控件组。选择是。然后在之后的复制中VB会自动给每个COMMAND控件设置一个INDEX值。如果复制。10个，那么默认INDEX值为0-9
要实现点击不同控钮实现不同代码就需要利用INDEX值。

代码：
双击任意一个按钮，在其事件下输入以下代码。
dim ClickName as long
ClickName=index+1
msgbox "你点击了第" & clickname & "个控件,其INDEX值为：" & index
if index=0 then
'加入第一个按钮的代码
elseif index=1 then
'加入第二个按钮的代码
else if index=2 then ........类推。

sub Command1(index)
if index=0 then
'做...
elseif index=1 then
'做...
.......
end if

end sub

用控件数组，在点击过程中会返回INDEX值，通过索引值来判断点击的是哪个按钮！

每个按钮用相同的名称，设置不同的index值。

VB中能复制啊。