Jag har två listboxar där jag vill flytta värden från den ena till den andra. När de flyttas till listbox2 vill jag att de ska raderas från listbox1.

Dim lstItem1 As ListItem

For Each lstItem1 In listbox1.Items
If lstItem1.Selected = True Then
Listbox2.Items.Add(lstItem1)
Listbox1.Items.Remove(lstItem1)
End If
Next

När jag kör detta får jag detta felmeddelande:
Collection was modified; enumeration operation may not execute.