Связь Check Box и Text Field - VB

Формулировка задачи:

В VB 6 пытаюсь сделать следующее: при загрузке формы Text1.Enabled должно быть False
Как только пользователь отмечает галочку CheckBox1, Text1.Enabled становится TRUE
При снятии галочки поле снова лочится.

Form_Load()
Text1.Enabled = False
Text1.BackColor = &H80000011
 

И для чекбокса

Check1_Click()
 Check1.Value = True 
Text1.BackColor = &H80000005
Text1.Enabled = True
: Text1.BackColor = &H80000011
Text1.Enabled = False
 
 

Но почему-то работает только в 1 одну сторону: поле лочится, а обратно не восстанавливается
Что я не так делаю???

Решение задачи: «Связь Check Box и Text Field»

textual
                            Листинг программы 
                        

                            <font color="blue">If</font> Check1.Value = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
 x = OText1.Text
<font color="blue">Else</font> 
x = Hex(OText1.Text)
<font color="blue">End</font> <font color="blue">If</font>

                        