>i use a listbox to display the fieldnames of a table and another listbox to capture the multi-selected fieldnames. its pem are:-
>
>init code is:-
>sele acctemp
>nLastField=fcount()
>for ctr=1 to nLastField
> vfield=field(ctr)
> this.additem(vfield)
>endfor
>
>interchange code is:-
>FOR i = 1 TO THIS.ListCount
> IF THIS.Selected(i)
> nNoSel = nNoSel + 1
> THISFORM.List2.Additem (THIS.List(i))
> ENDIF
>ENDFOR
>
>it works well and box2 capture all selected items. when i want to capture the field selected listindex numbers, i substitute line 4 of the interchange code to "thisform.List2.additem(str(this.listindex,2,0))". it does not produce the result that i want as the last selected listindex number replaces all existing selections. please help. ta

---

just a wrong function call.

Check out the usage of AddListItem Event, and the sample will do what you need.