*MoveItems lparameters oSource,oTarget local ix,jx local array aIndex[1] With oSource For ix = 1 to .Listcount If m.lAll or .Selected(m.ix) Dimension aIndex[iif(type("aIndex[1]")="L",0,alen(aIndex))+1] aIndex[alen(aIndex)] = .IndexToItemId(m.ix) For jx = 1 to .ColumnCount oTarget.AddListItem(.List(m.ix,m.jx),.IndexToItemId(m.ix),m.jx) Endfor Endif Endfor If type("aIndex[1]")#"L" For ix = 1 to alen(aIndex) .RemoveListItem(aIndex[m.ix]) Endfor Endif EndwithCetin