select case commandbutton(index)
case 0
for i =0 to *
commandbutton(i).enable=false
commandbutton(0).enable=true
next
....
case 1
for i =0 to *
commandbutton(i).enable=false
commandbutton(1).enable=true
next
....
case 2
.......
....
end select
//////////////////////////可以将中间部分作一个小的函数