LOCAL lcCheckBox lcCheckBox = "THIS.Chk" + SUBSTR(This.Name,LEN(ALLTRIM(This.Name))-2)) + ".VALUE This.Enabled = (&lcCheckBox = 1)