Combobox и Checkbox - VB

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

Доброго времени суток! Не могли бы вы подсказать, как сделать так, чтобы при нажатии checkbox были разрешены ввести значения с клавиатуры в combobox, при этом изначально ввод значений с клавиатуры в combobox запрещен?

Решение задачи: «Combobox и Checkbox»

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

                            Option Explicit
 
Private Sub Form_Load()
Combo1.Clear: Combo1.Locked = True
End Sub
 
Private Sub Check1_Click()
If Check1.Value = 0 Then
Combo1.Locked = True: Combo1.Clear
ElseIf Check1.Value = 1 Then
Combo1.Locked = False
End If
End Sub
                        