Q tal!!!
Mira tengo este ejemplo q te puede ser util...
'Aqui Demostramos como cargar los datos en un List y ademas poner el focus en el primer elemento:
List1.Clear
Do Until Data1.Recordset.EOF = True
List1.AddItem Data1.Recordset!Ciudad
Data1.Recordset.MoveNext
Loop
List1.Selected(0) = True
List1.SetFocus
Luego....:
'En la subrutina mostramos como remover un Item hacia otro lado, en esta caso a otro list y ademas q el siguiente elemento de la lista se quede con el foco:
Dim NumElemento As Integer
NumElemento = List1.ListIndex
List2.AddItem List1.Text
List1.RemoveItem (NumElemento)
List1.Selected(NumElemento) = True
List1.SetFocus
Como vez, solo movi el elemento de un List a otro y claro lo removi del primero, el NumElemento es el q esta seleccionado. Como te podras dar cuenta aqui te podria marcar un error, ya q si el usuario seleccionara el ultimo elemento el NumElemento buscaria nuevamente ese numero y marcariq el mensaje de error. Depuralo o agregale tus lineas, pero espero q te sea de mucha utilidad.
Pruebalo por lo pronto como esta el ejemplo, utilizando dos List para q veas el funcionamiento...
Saludos!!!