CheckBox16 的checkedchanged也要写代码,如
If e.Form.Controls("CheckBox16").Checked = True Then
e.Form.Controls("TextBox11").Enabled = False
Else
e.Form.Controls("TextBox11").Enabled = True
End If