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.
Carl