thisform.LockScreen = .t. cList = ThisForm.lbxListbox.listindex **Your Code here cText = "" FOR iCounter = 1 TO ThisForm.lbxListbox.ListCount ThisForm.lbxListbox.listindex=iCounter cText=cText + alltrim(ThisForm.lbxListbox.value) + CHR(13) ENDFOR *** End of Your Code ThisForm.lbxListbox.listindex = cList thisform.LockScreen = .f.