>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


You're welcome :)