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

此主题相关图片如下：qq截图20171219170832.png

求助老师：我想实现点击“首页”时，这个按钮字体变蓝加粗、背景变黑色，当点击其他按钮时其他按钮字体变蓝加粗、背景变黑色，“首页”恢复如初。他们互相都是这样的关系。

能用分组框里的mousedown事件统一设定代码么？

这是我在“首页”按钮mousedown事件代码：

e.sender.BackColor=Color.black '设置按钮背景颜色;
Dim rt As New Font(Cstr(e.Sender.Font.Name),14,FontStyle.Bold) '设置字体;
e.Sender.Font=rt
e.Sender.ForeColor=Color.FromARGB(255,45,148,193)'设置按钮字体颜色;

 要循环设置，窗口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