On error resume next
dim t as control
for each t in form1.controls
   if typeof t is TextBox then 
       t.selStart=0
       t.selLength=Len(t.text)
   End if 
Next