>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