nella prorpietà selStart imposti da quale carattere iniziare la selezione (perte da 0 se non vado errato) e con selLenght gli indichi la lunghezza della selezione

es:
codice:
...
text1.selstart = 0
text1.sellenght = 10
...
ti seleziona i primi dieci caratteri di text1!