Hi Marcia,

IF m.this.SelectOnEntry
   TextBox::GotFocus
    this.SelStart = 0
    this.SelLength = LEN(m.this.Text)
    NODEFAULT
ENDIF

This is faster.
Test
TextBox::GotFocus vs TextBox::GotFocus()

Fabio