Listenfeld ausschneiden und einfügen

[Belphegore]

Moin Moin Free-Hack,

Also ich habe in Visual Basic 2 Listboxen und 2 Buttons. Mit dem einen Button, löscht es den ausgewählten Eintrag von LB1 und fügt ihn in LB2 ein, der andere genau das Gegenteil.

Momentan sieht das so aus:

Mit meinem Code löscht es jedoch die Einträge nur und fügt sie nicht beim anderen ein. Hab lange rumgetüfftelt, aber es irgendwie nicht geschafft, dass es diesen dann auch noch einfügt. Irgendwas mit der Funktion "Insert()" ?

Der Code der sieht momentan so aus:

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("Spaghetti")
ListBox1.Items.Add("Grüne Nudeln")
ListBox1.Items.Add("Tortellini")
ListBox1.Items.Add("Pizza")
ListBox1.Items.Add("Lasagne")

ListBox2.Items.Add("Coca Cola")
ListBox2.Items.Add("Eistee")
ListBox2.Items.Add("Pepsi")
ListBox2.Items.Add("Sprite")
ListBox2.Items.Add("Red Bull")

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim X As Integer
X = ListBox2.SelectedIndex
If X <> -1 Then
ListBox2.Items.RemoveAt(X)
End If

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Dim X As Integer
X = ListBox1.SelectedIndex
If X <> -1 Then
ListBox1.Items.RemoveAt(X)
End If

End Sub
End Class

Wie müsste man den genau ergänzen? Wäre echt hilfreich