I believe, it should be:
lccom="count for not empty("+.List1.list[ia,1]+") to THISFORM.List2src[ia,2]"

Otherwise, "this.List2src" refers to button click

>Hello Yuri,
>
>Thank you very much i am using the below code which you have sent me i have also added the property(List2src) to the form
>
>I am getting error message(Property list2src not found) on the below line
>
>.List2src[ia,1]=.List1.list[ia,1]
>
>*****************this is the Code under button click************
>WITH thisform.pageframe1.page3
>with .List1
>.Rowsource="chgnotce"
>.RowsourceType=8
>endwith
>
>thisfoem.addproperty("List2src["+trans(.List1.ListCount)+",2]","")
>sele (.list1.Rowsource)
>FOR ia= 1 to .List1.ListCount
>
>.List2src[ia,1]=.List1.list[ia,1]
>
>lccom="count for not empty("+.List1.list[ia,1]+") to this.List2src[ia,2]"
>&lccom
>endfor
>
>with .List2
>.RowsourceType=5
>.Rowsource="thisform.List2src"
>.ColumnCount=2
>endwith
>endwith
>*************************************************