help me to this

i am having two listboxes list1 nd list2.
List1 contains some items like aa,bb,cc,dd
and List2 contains some items like bb,ee,hh,cc.
when i press command button aa and dd of the list1
should move to list2 and bb and cc of list1 should be deleted.
ie if the item of list1 macthes with the item
of list2 then macthing item of list1 should be deleted and if it not macthes with items of list2 then it should move to list2.
this is second time asking this question please
some body give me the solution for this

VB Code:

For i = List1.ListCount - 1 To 0 Step -1
  found_it = False
  For j = 0 To List2.ListCount - 1
    If List1.List(i) = List2.List(j) Then
      found_it = True
      Exit For
    End If
  Next j
  If Not (found_it) Then List2.AddItem List1.List(i)
  List1.RemoveItem (i)
Next i