>>Hi Fred,
>>you may improve your code using the 4th parameter of alines. ::)
>>

>>ALINES(aTables,this.ChildList,.F.,',')
>>

>>Agnes
>>
>>>>Fred,
>>>>I am doing this. I have three table names in childlist property(cnchron,sub_ref,actions)
>>>>All the three times in the loop the first table(cnchron) name is appearing it is not going to the second and the third.
>>>>
>>>>ALINES(aTables,STRTRAN(this.ChildList,",",CHR(13)+CHR(10)))
>>>>FOR nTable=1 TO ALEN(aTables,1)
>>>> * whatever you need to do with aTables[nTable]
>>>> =messagebox("Table "+aTables[nTable])
>>>>ENDFOR
>>>>
>>>>Thank you very much.
>
>But that only works in VFP7 up. What I posted works in VFP6 (maybe 3&5??), too.

3&5 version :)

oDummy=createobject('ListBox')
with oDummy
 .RowSourceType = Value
 .RowSource = lcCommadelimitedList
 dimension arrList[.ListCount]
 for ix=1 to .ListCount
   arrList[ix]=.List(ix)
 endfor
endwith
release oDummy

Code is long but was surprisingly fast (unless liststr is huge).
Cetin