启用控件-颜色剥离问题

Question

我目前有几个复选框来执行下面的代码。

Private Sub CheckBox2_Click()
    Dim en As Boolean
    en = CheckBox2.Value
    EnableControls Array(CheckBox3, CheckBox4, CheckBox5, CheckBox6, CheckBox7, CheckBox9, CheckBox10, CheckBox11, TextBox1), en

End Sub

Private Sub EnableControls(cons, bEnable As Boolean)
    Dim con
    For Each con In cons
        With con
            .Enabled = bEnable
            .BackColor = IIf(bEnable, vbWhite, RGB(240, 240, 240))
        End With
    Next con
End Sub

因此，当使用Checkbox=False时，其他复选框字段将灰显，并且您无法选中它们。然而，一旦它们变灰了，它们的整个背景颜色就从默认的“表格背景灰”变成了大胆的白色--你有什么办法让盒子变灰，当它们“不变灰”的时候，它们就会回到默认的颜色吗？