Fabio,

You may put the following code in Text1.LostFocus

If (Mdown() And Mrow(Thisform.Name)>=0 And Mcol(Thisform.Name)>=0) Or Wontop(Thisform.Name)
   Nodefault
Endif

Besides, to get around a bug of VFP, you may want to put the following line into Text1.Mousedown() at the same time. Otherwise, you will have problem when going back to the textbox from another from by clicking on it.

This.SetFocus

Ben