Nick Thank you very much it is working.

Can you tell me how i can concatenate the first five fields and show them in one single column and the last remaining field in second column.

In the properties window of list box i wrote this:

columncount = 2
columnwidth = 240,240

this is the code i am using which you have sent.

**************code starts here**********

lcSource = "SELECT project_no,workpkg_no,sub_sec,sub_para,sub_seq,sub_title ;
FROM sub ;
WHERE sub.project_no = this.project_no.value ;
AND sub.workpkg_no = this.workpkg_no.value ;
AND DELETED() = .f. ;
ORDER BY project_no, workpkg_no ;
into cursor cSource"

WITH thisform.list1
.RowSourceType = 3 && SQL Statement
.RowSource = lcSource
.Requery()
.refresh()
.setfocus()
ENDWITH

**************END**********************

Thank you.