que tal a todos estoy usando un lisbox en el cual
estoy mostrando unos datos y lo que tengo que hacer es
un intercambio de los elementos es decir cuando hago
con la flecha para arriba intercambia los elementos y
lo mismo con la flecha hacia abajo el problema es que
cuando voy con la flecha hacia abajo me intercambia
bien los elementos pero me deja posicionado un elemnto
mas abajo, el codigo es el sigueinte :

Private Sub lista(keycode As Integer)
' para poder realizar el swap de los distintos
organismos
Dim aux As String
Dim a As Integer
' esta parte funca'
If keycode = 38 Then
If List.ListIndex <> 0 Then

a = List.ListIndex
aux = List.List(List.ListIndex)
List.RemoveItem a
List.AddItem aux, a - 1

End If
End If
** esta es la parte que tengo el problem'
If keycode = 40 Then

a = List.ListIndex + 1
aux = List.List(a)
List.RemoveItem a
List.AddItem aux, a - 1


1)Alguein sabe cual es el problema????

2) alguien sabe como pocisionarse en una x posicion
en un lisbox

------------
Internet GRATIS es Yahoo! Conexión
4004-1010 desde Buenos Aires. Usuario: yahoo; contraseña: yahoo
Más ciudades: http://conexion.yahoo.com.ar