关于控件数组
Sub main(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button1.Click, Button3.Click
Dim ctr As Button.ControlCollection
Dim ctr1 As Button
Select Case sender.TabIndex
Case 0
Button1.ForeColor = Color.Blue
Case 1
Button2.ForeColor = Color.Green
Case 2
Button3.ForeColor = Color.Beige
End Select
‘希望在执行了以上代码后，在这儿做个循环或判断就是比如刚没有被点击的按钮去做另一相同的动作，如颜色都红色如何实现？
End Sub

[解决办法]
Sub main(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button1.Click, Button3.Click
Dim ctr As Button.ControlCollection
Dim ctr1 As Button
Select Case sender.TabIndex
Case 0
Button1.ForeColor = Color.Blue
Button2.ForeColor = Color.red
Button3.ForeColor = Color.red
Case 1
Button1.ForeColor = Color.red
Button3.ForeColor = Color.red
Button2.ForeColor = Color.Green
Case 2
Button3.ForeColor = Color.Beige
Button1.ForeColor = Color.red
Button2.ForeColor = Color.red
End Select
‘希望在执行了以上代码后，在这儿做个循环或判断就是比如刚没有被点击的按钮去做另一相同的动作，如颜色都红色如何实现？


End Sub

---------
这样?