mover contenido de listbox a otro

[Carlosnuel]

hola tengo una pequeña duda...
tengo un listbox que se llama SalidaList entonces quiero sacar el contenido de ese listbox (el ultimo elemento del listbox) invertir su contenido y colocarlo caracter por caracter en otro listbox (PilaList)
he intentado hacer esto... pero no funciona

Código [Seleccionar] Expandir


Expr = StrReverse(Salidalist.List)
For k = 1 To Len(Expr)
     Car = Mid(Expr, k, 1)
     PilaList.List = Car
     PilaList.ListCount = PilaList.ListCount + 1  'para moverse a la siguiente localidad de pila
Next k



en pocas palabras si supongo que tengoen :
SalidaList
PRUEBA
quiero que en PilaList
A
B
E
U
R
P

... lo que tampoco puedo hacer es que lo escriba en la parte de arriba de la pila si por ejemplo tenemos $ guardado en la pila lo conserve

A
B
E
U
R
P
$

lo estoy intentando con un PilaList.ListCount - 1

podrían ayudarme para saber en que me estoy equivocando

[whiskises]

Si te entendi bien, ahi va una idea,ahora modificala para tu codigo

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim n, x As Integer
n = List1.ListCount
For x = n - 1 To 0 Step -1
List2.AddItem List1.List(x)
Next

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 6
List1.AddItem i
Next
End Sub


[Carlosnuel]

gracias por la ayuda...

ya lo implemente y quedo así

Expr = StrReverse(grd.TextMatrix(Fila, Columna))
  For k = 1 To Len(Expr)
     Car = Mid(Expr, k, 1)
     PilaList.AddItem Car
  Next k