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.