Hi Again,

I am able to move my items from one list to another using this code....
Private Sub cmdaddone_Click()
Cart = ""

For i = 0 To lstcart.ListCount - 1
If lstcart.Selected(i) = True Then
Cart = Cart & lstcart.List(i)
End If
Next i

lstcart.List(i) = lststore.List(lststore.ListIndex)
End Sub

However, When I try to remove items from the new list I have created I seem to be running into errors. I just want to delete the item from the lstcart all together. I'm not sure why it won't work.

Here is that code.

Private Sub cmdremoveone_Click()


For i = 0 To lstcart.ListCount - 1
If lstcart.Selected(i) = True Then
Cart = Cart & lstcart.RemoveItem(i)
End If
Next i

lstcart.List(i) = lststore.List(lststore.ListIndex)


End Sub

suggestions?