moving data from one ListBox to Another ListBox

[buffdaemon_live]

I am using the code posted by Kerry which adds all the Items from ListBox2 to ListBox1. Is there any way to add one selected item at a time from ListBox2 to ListBox1 and remove the items added to ListBox1 from ListBox2??

Below is the code used by me:

Me.ListBox1.DisplayMember = Me.ListBox2.DisplayMember
Me.ListBox1.ValueMember = Me.ListBox2.ValueMember

For Each item In Me.ListBox2.Items
Me.ListBox1.Items.Add(item)
Next

[Hack]

'move all items
Dim i As Long
   For i = 0 To List1.ListCount - 1
       List2.AddItem List1.List(i)
   Next
   List1.Clear

'move selected items

Dim i As Long
For i = List2.ListCount - 1 To 0 Step -1 ' counts list entries
    If List2.Selected(i) = True Then ' if selected then
        List1.AddItem List2.List(i) ' add to other list
        List2.RemoveItem i ' optional remove
    End If
Next