Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Dim i As Integer
 
        For i = 0 To ListBox1.Items.Count - 1
            ListBox2.Items.Add(ListBox1.Items(i).Clone())
        Next
       End Sub

---------------
VB.NET macht Spaß!