>If this message looks familiar its because I posted it earlier but it disappeared. I want to make a delimited string from the selected items in a multiselect listbox. So far all the code I can muster is:
>
>FOR nCnt = 1 TO ThisForm.List1.ListCount
> IF ThisForm.List1.Selected(nCnt)= .t.
> thisform.mytextbox.value = thisForm.List1.List(nCnt) + ","
> ENDIF
>ENDFOR
>
>(I'm displaying the string in mytextbox to check progress during development)
>
>This returns one selection plus a comma. But how do I get all selections?

---

You were very close :)

local lcValue
with ThisForm.List1
  lcValue = ""
  FOR nCnt = 1 TO .ListCount
    IF .Selected(nCnt)
       lcValue = lcValue + ;
          iif(empty(lcValue),"",",") + ;
          .List(nCnt)
    ENDIF
  ENDFOR
endwith
thisform.mytextbox.value = lcValue

Cetin