Thank you.
This solves the problem.
Can you explain me the effect of the lines:
Textbox::Gotfocus
and then
NODEFAULT

Ciao, grazie e congratulazioni.


p.s.
A few months ago I sent you a private email asking you to join also the italian VFP web group...


>Usa questo
>

>	PROCEDURE text2.GotFocus
>		Textbox::Gotfocus
>		This.SelStart = 0
>		This.SelLength = 255
>		NODEFAULT
>	ENDPROC
>

>
>or
>

>Public oForm
>oForm = CreateObject("form1")
>oForm.Show()
>*
>
>
>DEFINE CLASS form1 AS form
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>
>
>	ADD OBJECT text1 AS textbox WITH ;
>		Height = 25, ;
>		Left = 60, ;
>		Top = 60, ;
>		Width = 97, ;
>		Name = "Text1"
>
>
>	ADD OBJECT text2 AS textbox WITH ;
>		Alignment = 3, ;
>		Value = 123.45, ;
>		Height = 25, ;
>		Left = 60, ;
>		Top = 108, ;
>		Width = 97, ;
>		Name = "Text2",;
>		selectOnentry = .t.
>
>
>	PROCEDURE text2.GotFocus
>		Textbox::Gotfocus
>*			This.SelStart = 0
>*			This.SelLength = 255
>		NODEFAULT
>	ENDPROC
>
>
>EndDefine
>