A step OK but not a solution yet, because this prevents the following fine-tuning of the position of the cursor i.e. in the middle of the text.

Other ideas?
Thanks.

>try this:
>
>

>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, ;
>                SelectOnEntry = .t., ;
>		Top = 108, ;
>		Width = 97, ;
>		Name = "Text2"
>
>
>	PROCEDURE text2.Click
>                 TextBox::GotFocus()
>	ENDPROC
>
>
>EndDefine
>
>