先做一个命令按钮，在属性面板中设置其按钮的Style属性为VbButtonGraphical。再在按钮的BackColor属性中选择绿色。然后复制/粘贴（回答“是”）。再复制/粘贴2个、4个、8个，…………，直到够数。下面的例子中有16个按钮。
Private Sub Command1_Click(Index As Integer)
Static a(15) As Integer ‘可改为a(99)即可设置100个按钮
a(Index) = 1 - a(Index)
If a(Index) = 1 Then
Command1(Index).BackColor = vbRed
Else
Command1(Index).BackColor = vbGreen
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024