vb如何组合控件

'创建一个数组（把按钮的名字设置为他）private sub xxx_clicka=indexselect case acase 1 '有版本是0 这里是按钮1'if xxx.visible=false then 这个不要考虑的，因为如果是假，那么按钮已经消失了。'代码case 2 '有版本是1 这里是按钮2'代码case else'其他按钮数组代码end selectend sub'请采纳！！