Dim chk as checkbox
for each con as control in Me.Controls
    if Typeof(con) is CheckBox then
        chk = ctype(con,checkbox)
        if chk.text = "xxx" then
            chk.Enabled = True
        else
            chk.Enabled = False
        End if
    end if
next con