Fabio,
Perfect - just what I was looking for.
Thanks Fabio and Brad.



>>With VFP8 the code below works perfect. When I click on text? he is selected.
>>
>>But with VFP9 when I click with mouse on textbox? he is not selected.
>>
>>I don't understand where is my mistake.
>>
>
>This code calls TextBox::Gotfocus 2 times;
>before VFP9 a bug arrested the sequence of the events,
>therefore MouseDown, MouseUp, Click did not happen and the SelectOnEntry remained applied.
>On VFP9 the bug is killed and then MouseDown, MouseUp are executed.
>The solution is simple:
>To arrest the sequence with NODEFAULT.
>
>>

PUBLIC oform1
>>
>>oform1=NEWOBJECT("form1")
>>oform1.Show
>>RETURN
>>
>>DEFINE CLASS form1 AS form
>>
>>
>>	Top = 0
>>	Left = 0
>>	Height = 123
>>	Width = 319
>>	DoCreate = .T.
>>	Caption = "Form1"
>>	Name = "Form1"
>>
>>
>>	ADD OBJECT text1 AS textbox WITH ;
>>		Alignment = 3, ;
>>		Value = 0.00, ;
>>		Height = 25, ;
>>		Left = 34, ;
>>		SelectOnEntry = .T., ;
>>		Top = 27, ;
>>		Width = 81, ;
>>		Name = "Text1"
>>
>>
>>	ADD OBJECT text2 AS textbox WITH ;
>>		Alignment = 3, ;
>>		Value = 0.00, ;
>>		Height = 25, ;
>>		Left = 163, ;
>>		SelectOnEntry = .T., ;
>>		Top = 27, ;
>>		Width = 81, ;
>>		Name = "Text2"
>>
>>
>>	PROCEDURE text1.GotFocus
>           if m.this.SelectOnEntry
>		TextBox::GotFocus
>                NODEFAULT
>           endif
>>	ENDPROC
>>
>>
>>	PROCEDURE text2.GotFocus
>>		TextBox::GotFocus
>                NODEFAULT
>>	ENDPROC
>>
>>
>>ENDDEFINE