mover elementos de un listBox

Varias veces eh visto algo como la imagen que esta a la derecha. esto por lo general lo hacia en javscript. ahora me propuse hacerlo a atraves de .NET sin nada de javascript. Aqui dejo el codigo: Sub boton1_Click(sender As Object , e As EventArgs) dim ElementosEliminar as Arraylist = new Arraylist for each item as ListItem in List1.Items If item.Selected Then List2.items.Add( New ListItem(item.text,item.value)) ElementosEliminar.add(item) End If next RemoveElements(List1,ElementosEliminar) End Sub Sub boton2_Click(sender As Object , e As EventArgs) dim ElementosEliminar as Arraylist = new Arraylist for each item as ListItem in List2.Items If item.Selected Then List1.items.Add( New ListItem(item.text,item.value)) ElementosEliminar.add(item) End If next RemoveElements(List2,ElementosEliminar) End Sub private function RemoveElements(...