Thank you very much Yuri. It is working perfect now.

I changed little bit saying thisform.List2src

It is working fine.
***************************************************
local lcSource,col1,lccom,cuList2,temp
**thisform.List2src = .f.
WITH thisform.pageframe1.page3
with .List1
.Rowsource="chgnotce"
.RowsourceType=8
endwith

thisform.addproperty("List2src["+trans(.List1.ListCount)+",2]","")
sele (.list1.Rowsource)
FOR ia= 1 to .List1.ListCount
thisform.List2src[ia,1]=.List1.list[ia,1]
lccom="count for not empty("+.List1.list[ia,1]+") to thisform.List2src[ia,2]"
&lccom
endfor

with .List2
.RowsourceType=5
.Rowsource="thisform.List2src"
.ColumnCount=2
endwith
endwith

***********************************
Thanks for your help.