Se non ha capito male.. se puoi passare un elemento dalla prima casella alla seconda potresti fare qualcosa di simile:
Private Sub Elenco1_DblClick(Cancel As Integer)
elemento = Elenco1.ItemData(Elenco1.ListIndex)
Elenco2.AddItem (elemento)
Elenco1.RemoveItem Elenco1.ListIndex
End
Sub
sia Elenco1 che Elenco2 come "tipo origine dati" ho impostato "Elenco valori"
Vincenzo
Programmatore sbilenco