I have listbox2 and listbox 3. All this is the multiselect.

After select the items in the listbox2, It will added the items into listbox3. So How I can remove the items selected in the listbox2 after added the items in the listbox3?

Code:
  
   For i = 0 To List2.ListCount - 1 'select sheet
    If List2.Selected(i) = True Then
    List3.AddItem (List2.List(i))
    
    End If
    Next