I'm trying to create a MoverList like the sample in VFP5. It has 2 ListBoxes with only 1 column. I need the same thing but with 2 columns in both listboxes: Below is the Add button code. When it adds to lstSelected it will create 2 new rows in lstSelected. Any one have ideas?

THISFORM.LockScreen = .T.
nCnt = 1
DO WHILE nCnt <= THIS.Parent.lstSource.ListCount
	IF THIS.Parent.lstSource.Selected(nCnt)
		THIS.Parent.lstSelected.AddItem(THIS.Parent.lstSource.DisPlayValue)
		THIS.Parent.lstSelected.AddItem(THIS.Parent.lstSource.Value,THIS.Parent.lstSelected.ListCount,2)
		THIS.Parent.lstSource.RemoveItem(nCnt)
	EndIf
	nCnt = nCnt + 1
ENDDO
THISFORM.LockScreen = .F.

Thanks Mark