Visual Basic.NET - Color texto CheckBox

' TBValPrec es un TexBox

        TBValPrec.Font = New Font("Courrier New", 10, FontStyle.Bold)  ' Poner el carácter en Courrier New, tamaña 10, Bold.

        TBValPrec.ForeColor = Color.Blue  ' Poner el color de los caracteres

        TBValPrec.BackColor = Color.White  ' Poner el color del fondo

Dim ValorDeEnabled As Boolean = TBValPrec.Enabled  ' Para saber si rue o False

TBValPrec.Enabled=False

TBValPrec.ForeColor = Color.Blue

TBValPrec.Enabled = ValorDeEnabled  ' Para poner como lo estaba

Dim ValorDeEnabled As Boolean = TBValPrec.Enabled  ' Para saber si True o False

TBValPrec.Enabled=True

TBValPrec.ForeColor = Color.Blue

TBValPrec.Enabled = ValorDeEnabled  ' Para poner como lo estaba

' Siempre con mi TextBox TBValPrec :

    Private Sub TBValPrec_Enter(sender As Object, e As EventArgs) Handles TBValPrec.Enter

' Aqui, enviar el focus en otro lugar que es permitido

' Por ejemplo ::

TextBoxPermitida.Select

' o

ButtonPermitido.Select

    End Sub

TBValPrec.ForeColor = Color.Red

        TBValPrec.BackColor = Color.Yellow

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            TBValPrec.ReadOnly = True

            MessageBox.Show("TextBox.ReadOnly = True" & vbCr & "No puedes escribir con teclada")

        Else

            TBValPrec.ReadOnly = False

            MessageBox.Show("TextBox.ReadOnly = False" & vbCr & "Puedes escribir con teclada")

        End If

        TBValPrec.ForeColor = Color.Red

        TBValPrec.BackColor = Color.Yellow

        TBValPrec.Text = "Azerty"

    End Sub