fibonnaci respondió:
Private Sub Casilla_Verificacion_CHANGE() If Casilla_Verificacion = TRUE Then Cuadro_de_Texto.Enabled = TRUE (o Cuadro_de_Texto.Locked = FALSE) Else Cuadro_de_Texto.Enabled = FALSE (o Cuadro_de_Texto.Locked = TRUE) End If End Sub