Problema con un arreglo

[DarkLeoZero]

Hola, soy principiante en lo que es .net y tengo un problema sobre los arreglo.

Lo que sucede es que quiero que el arreglo que elimine del arreglo1 se agregue en el arreglo2 antes que se elimine del arreglo1, y que al presionar el boton 'listar' se liste todos los arreglos eliminados del arreglo1.



Aqui les dejo el codigo que he utilizado:

Public Class Form1



Dim arreglo As New ArrayList
Dim arreglo2 As New ArrayList
Sub listarArreglo()
Me.ListView1.Items.Clear()
For Each puntero As claseArreglo In arreglo
Dim filas As New ListViewItem(puntero.codigo)
filas.SubItems.Add(puntero.nombre)

Me.ListView1.Items.Add(filas)
Next


End Sub

Sub listarArreglo2()

End Sub



Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then

For Each puntero As claseArreglo In arreglo
If puntero.codigo = Me.TextBox1.Text Then

MsgBox("Ya existe codigo")
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox1.Focus()
Exit Sub
End If
Next
Dim clase As New claseArreglo
clase.codigo = Me.TextBox1.Text
clase.nombre = Me.TextBox2.Text

arreglo.Add(clase)

Call listarArreglo()

End If
End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick, ListView2.DoubleClick
Dim buscar As String = Me.ListView1.SelectedItems(0).SubItems(0).Text

For Each puntero As claseArreglo In arreglo
If puntero.codigo = buscar Then


arreglo.Remove(puntero)
MsgBox("Registro eliminado")
Call listarArreglo()
Exit Sub
End If
Next

End Sub





#Region "Clase para la Arraylist"

Public Class claseArreglo
Private _codigo As String
Private _nombre As String

Public Property codigo() As String
Get
Return _codigo
End Get
Set(ByVal value As String)
_codigo = value
End Set
End Property

Public Property nombre() As String
Get
Return _nombre
End Get
Set(ByVal value As String)
_nombre = value
End Set
End Property


End Class

#End Region


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

Call listarArreglo2()
End Sub
End Class

Espero puedan ayudarme gracias