thisForm.Text1.Format = "K"  && Select ehn you enter in textbox with "Tab" or "SetFocus"
   
* When click with mouse, in method click write:
this.SelStart = 1  && Or 0
this.SelEnd   = Len(RTrim(this.Value))