Try this...


With This.Parent
For I = 1 To .lstSelected.ListCount
If .lstSelected.Selected(I)

lnItemID = .lstSelected.IndexToItemID(I)

.lstSource.AddListItem(.lstSelected.ListItem(I),lnItemID,1)
.lstSource.AddListItem(.lstSelected.ListItem(I,2),lnItemID,2)
.lstSource.AddListItem(.lstSelected.ListItem(I,3),lnItemID,3)

.lstSelected.RemoveItem(I)
Endif
EndFor
EndWith


You need to add items using the ITEMID not the INDEX

This should work...i didn't get a chance to debug it. I'll debug it and let you know if i find any errors.