如何实现文本输入框只读和编辑状态下不同背景颜色?

Private Sub Command_1_Click()

    Dim x As Long
    Dim y As Long

    y = 15    'y用来表示窗体中需要进行批量更改背景色的文本框个数，假设为15个

    If Me.Command_1.Caption = "编辑" Then
        For x = 1 To y
            Me("text" & x).Enabled = True
            Me("text" & x).BackColor = vbRed
        Next x
        Me.Command_1.Caption = "保存"

    ElseIf Me.Command_1.Caption = "保存" Then
        For x = 1 To y            Me("text" & x).Enabled = False
            Me("text" & x).BackColor = 16777164

            Me.Command_1.Caption = "编辑"
        Next x
    End If

End Sub