主题：CheckBox请教

想设置TextBox10 控件有内容的时候，CheckBox3自动勾选，没内容取消勾选。现在有内容能勾选上，但删除或清空TextBox10内容，却不会自动取消勾选。代码：
Dim Free As WinForm.TextBox = e.Form.Controls("TextBox10")
Dim chk As winForm.CheckBox
chk = Forms("基本信息").Controls("CheckBox3")
If Free Is Nothing Then
    chk.checked = False
Else
    chk.checked = True
    
End If