关于控件数组,该怎么解决

关于控件数组
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

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