>>*** Textbox Valid Event >>*********************** >>Local array la_MouseObject[1] >> >>If mdown() >> = AMouseObj( la_MouseObject ) >> If inlist( upper( la_MouseObject[1].Class ), ; >> 'FORM', 'LABEL', 'SHAPE', 'LINE', 'CONTAINER' ) >> Return 0 >> endif >>endif >> >>*** Do your validation >>Wait 'Valid Event is fired' window nowait >>>