Hi Hurt.
I have the following code :
cText=""
FOR iCounter = 1 TO ThisForm.lbxListbox.ListCount
ThisForm.lbxListbox.listindex=iCounter
cText=cText + alltrim(ThisForm.lbxListbox.value) + CHR(13)
ENDFORAmmend the code as follows:
cText = ''
WITH ThisForm.lbxListbox
FOR iCounter = 1 TO .ListCount
cText = cText + ALLTRIM( .List[ iCounter, .BoundColumn ] )
ENDFOR
ENDWITH