>Hi Tamar,
>thanks very much. I never imagined that it was so easy.
>Let me ask you just another little thing.
>
>Do you know how can I select two or more controls at same time?????
>
>If I set the focus to the second one the first one lose the focus.
>
>Thanks.
>Ricardo.

You could shift+click to select multiple controls. ie:

Aselobj(arrObj,1)
For ix = 1 To 5
  arrObj[1].AddObject('txtTest'+Ltrim(Str(ix)),'TextBox')
  oObj = Evaluate('arrObj[1].txtTest'+Ltrim(Str(ix)))
  With oObj
    .Top = (ix-1) * (.Height+5) + 10
    .Left = 20

    Mouse Click At ;
      Objtoclient(oObj,1)+5,;
      Objtoclient(oObj,2)+5 ;
      window (arrObj[1].Name) ;
      pixels shift
  Endwith
Endfor

Cetin