主题：分组框能实现统一设定代码功能么

 要循环设置，窗口click事件，如代码

Dim ary() As String = {"button1", "button2", "button3"}
For Each s As String In ary
    Dim c = e.form.controls(s)
    If s = e.sender.name Then
        c.BackColor=Color.black '设置按钮背景颜色;
        Dim rt As New Font(Cstr(c.Font.Name),14,FontStyle.Bold) '设置字体;
        c.Font=rt
        c.ForeColor=Color.FromARGB(255,45,148,193)'设置按钮字体颜色;
    Else
        c.BackColor=Color.gray'设置按钮背景颜色;
        Dim rt As New Font(Cstr(c.Font.Name),14) '设置字体;
        c.Font=rt
        c.ForeColor=Color.white'设置按钮字体颜色;
    End If
Next