Also du packst diesen Teil:
in die Sub des ersten Buttons. Dann diesen Teil:Code:Dim selectedMulti = ListBox1.SelectedItems
If selectedMulti.Count > 0 Then
Dim strlist As New ArrayList
For Each eintrag In selectedMulti
strlist.Add(eintrag)
Next
For Each selection In strlist
ListBox1.Items.Remove(selection)
ListBox2.Items.Add(selection)
Next
End If
in die Sub des zweiten Buttons.Code:Dim selectedMulti2 = ListBox2.SelectedItems
If selectedMulti2.Count > 0 Then
Dim strlist2 As New ArrayList
For Each eintrag In selectedMulti2
strlist2.Add(eintrag)
Next
For Each selection In strlist2
ListBox2.Items.Remove(selection)
ListBox1.Items.Add(selection)
Next
End If
Nichts anderes habe ich oben gesagt.