Do Case Case !Wontop(Thisform.Name) && Activating another form. No validation Return .T. Case Thisform.ReleaseType>0 && Quiting VFP or clicking on form's close box. No validation Return .T. Otherwise oObj=Sys(1270) If Vartype(oObj)='O' And oObj.Name='cmdCanc' && Clicking on the Cancel button. No validation Return .T. Endif Endcase ... validation code goes here...Ben