*** ActiveX Control Event *** Lparameters toNode This.SelectedItem = toNode If Empty(toNode.Tag) Thisform.actionrecursive_in_child( toNode ) Else Select mytableA Set Order To client_id Seek toNode.Tag If Found() and !Empty(clients.email) toNode.Checked = !toNode.Checked=.t. && seems doing fine Else toNode.Checked = .f. && here is the point... uncheck fine here. *This.SelectedItem.Checked = .f. * ?? CHR(07) * ThisForm.Container1.Text10.SetFocus() * NODEFAULT * RETURN .f. Endif EndifMy goal is about to doesn't allow the user check items with empty field of client's email...