*** Explicitly call base class behavior TextBox::GotFocus() WITH This *** Set insertion point .SelStart = 0 IF .SelectOnEntry *** Highlight contents .SelLength = 999 ENDIF ENDWITH *** Suppress normal base class behavior NODEFAULTNotice that this also highlights the contents when the native 'SelectOnEntry' property is set. If you don't want it, remove the code.