[VB6] "Spostare" elementi da ListBox a ListBox

[motogpdesmo16]

a me funziona bene.
HO creato due listbox e un bottone per la valorizzazione di una delle due listbox con 3 elementi A, B, C.

Private Sub Command1_Click()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"

End Sub

Al click sull'item della lista:

Private Sub List1_Click()
x = List1.ListIndex

List2.AddItem List1.List(x)
List1.RemoveItem (x)
End Sub

che appunto rimuove da una listbox e aggiunge all'altra.
Spero di averti aiutato. Ovviamente devi adattarlo alle tue esigenze.