>*** 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 >You're right - not a good solution - a great solution! :)