In this code, when the second column of lstSelected is moved to the
lstsource it doesn't go to the same line of the first column, but it always goes 2 lines before. What is wrong?

nCnt = 1
DO WHILE nCnt <= THIS.Parent.lstSelected.ListCount
IF THIS.Parent.lstSelected.Selected(nCnt)
THIS.Parent.lstSource.AddItem(THIS.Parent.lstSelected.List(nCnt),THIS.Parent.lstSource.ListCount+1,1)
THIS.Parent.lstSource.AddListItem(THIS.Parent.lstSelected.List(nCnt,2),THIS.Parent.lstSource.ListCount,2)
THIS.Parent.lstSource.AddListItem(THIS.Parent.lstSelected.List(nCnt,3),THIS.Parent.lstSource.ListCount,3)
THIS.Parent.lstSelected.RemoveItem(nCnt)
ELSE
nCnt = nCnt + 1
ENDIF
ENDDO