***Control.RightClick This.Tag='A' && you msy use custom property if your control is subclassed Do Form .... <B>With ThisForm, .... To myResult</B> ***Control.Valid/Lostfocus If Not Empty(this.tag) This.Tag='' Else *** run 'normal' code here Endif ***ModalForm.Init Lparameter CallingForm, ... * Object Reference from Calling Form ThisForm.CallingForm = CallingForm ***ModalForm.Unload ThisForm.CallingForm.CONTROL.Tag = "" && Empty it! Return Thisform.iResult && Send Back Result to calling Form!