cText="" thiform.lockscreen=.t. myoldidx = ThisForm.lbxListbox.listindex FOR iCounter = 1 TO ThisForm.lbxListbox.ListCount ThisForm.lbxListbox.listindex=iCounter cText=cText + alltrim(ThisForm.lbxListbox.value) + CHR(13) ENDFOR ThisForm.lbxListbox.listindex = myoldidx thiform.lockscreen=.f.HTH