>*** GotFocus Event
>this.Tag = IIF(this.Value,"1","0")
>
>*** Lost Focus
>IF NOT this.Tag == IIF(this.Value,"1","0") ;
>   AND MESSAGEBOX('ok to click?',4,'test') = 7
>       this.Value = (this.Tag == "1")
>ENDIF
>

IF thisform.lMadeChanges AND thisform.AskToSave() = 2       
      RETURN .f.
   ELSE
      this.Value = not this.Value
      this.Click()   
ENDIF