Copy Items from listBox1 to ListBox2 in Visual Basic 10

I want to copy the items from one listbox to another and when copying them are deleted from the first one, some idea of how I can achieve it? until now the listbox 1 is deleted and it remains without copying. This is what I have tried.

Sub copiar()
        For Each item As Object In Me.R_10s.Items

            Me.Copia.Items.Add(item)

        Next
            Me.Copia.Items.Clear()
            Me.R_10s.Items.Clear()
     End Sub