Recorrer list

Un ejercicio sencillo en visual basic, recorrer dos list e intercambiar elementos de uno a otro, agregando el elemento seleccionado al otro list y eliminandolo de donde lo tenemos seleccionado, fijaros como el codigo no es dificil, hasta yo me lo aprendi de memoria, al loro con las imagenes y luego fijaros en el codigo:

 


Estas tres imagenes explican lo que hace el programita, tenemos dos list y dos botones y vamos a dar nombres a las cosas:
listado llamado izquierdo, listado llamado derecho y dos botones cmd_derecho y cmd_izquierdo, y vamos a escribir codigo, si algo del codigo no lo pillais, puedo explicaros lo que sea mediante los comentarios:

CODIGO:

Option Explicit


Private Sub cmd_derecho_Click()
Dim i, j As Integer
Dim renglon As String

i = 0
j = izquierda.ListCount - 1
renglon = izquierda.List(izquierda.ListIndex)

While i <= j
     If izquierda.Selected(i) Then
        derecha.AddItem izquierda.List(i)
        izquierda.RemoveItem (i)
        i = i - 1
        j = j - 1
     End If
       i = i + 1
Wend

End Sub

Private Sub cmd_izquierdo_Click()
Dim i, j As Integer
Dim renglon As String

j = derecha.ListCount - 1
i = 0
renglon = derecha.List(derecha.ListIndex)

While i <= j
     If derecha.Selected(i) Then
         izquierda.AddItem derecha.List(i)
        derecha.RemoveItem (i)
         i = i - 1
         j = j - 1
     End If
        i = i + 1
Wend

End Sub   Como es logico son dos codigos que se repiten, ya que los dos botones hacen lo mismo, y nada más, como siempre dice mi profesor Carlos, aqui teneis la herramienta, ya es cosa vuestra pillaros los dedos con ella.