Hi Herman,

>

>*** 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! :)

Works like a charm!

Thanks again for your help,

Malcolm