Hi All,
I've search everywhere for an answer but could not find anything. I have 2 list box. I want to be able to move multiple item from list 1 to list 2 and remove the selected item from list 1 once moved.
This is the code that I have currently. It work for a single item. However, if multiple item are selected, the code will only remove the last selected item and that's it. It seem like the .RemoveItem i triggers some sort of refresh on the list and it loose all selected items. If I comment out the .RemoveItem i, I can successfully add the selected item to list 2 but the items are not removed from list 1 ( of course)
Code:
Dim i As Integer
Dim strItm
With Me.lstMem
For i = (.ListCount - 1) To 0 Step -1
If .Selected(i) Then
lstMemPresent.AddItem (.Column(0, i))
.RemoveItem i
End If
Next
End With
Anyone has a clue or idea? I've try to look at some of the list property but to no avail....
Thanks for any input/suggestion