FoxPro/Visual FoxPro - Problema con ListBox

Que tal amigos :

No logro resolver el problema en el ListBox ( LstSeleccionar ) al momento de mover un Item al 2do. ListBox ( LstProgramado ). Estoy utilizando un boton de comando llamado CmdAgregar que utilizo para mover el ITEM seleccionado al 2do. ListBox( LstProgramado ) solo me muestra el ICONO del picture asociado mas no aparece visible el ITEM...

Aqui muestro el codigo que estoy utilizando en el boton de comando.

cCurso = Thisform.LstSeleccionar.Value
nCurso = Thisform.LstSeleccionar.ListIndex
If Thisform.LstSeleccionar.ListCount > 0 Then
Thisform.LstProgramado.AddItem(cCurso) && Aqui el
problema
Thisform.LstSeleccionar.RemoveItem(nCurso)
Thisform.LstSeleccionar.ListIndex = 0
Thisform.CmdAgregar.Enabled = .F.
Thisform.LstProgramado.Gotfocus()
Endif
Thisform.Refresh

Y este es el codigo que utilizo para cargar los datos al ListBox

Select 2
SCAN
Thisform.LstSeleccionar.AddListItem(ALLTRIM(PROPER(Ape_Alum)) + ", " + PROPER(nom_alum)
Thisform.LstSeleccionar.Requery()
Thisform.LstSeleccionar.Refresh()
ENDSCAN

Agradezco amigos sus comentarios y/o sugerencias...

Saludos,
GABRIEL

la idea es asi...segun te entendi...

list1 && aca estan los elementos...supongamos productos
list2 && aca se ira llenando de acuerdo a los elementos del list1

olvidemos el boton..seamos mas practicos

pon el siguiente codigo en el
evento DBLCLICK del list1 (evento doble click del list1)

local numele,nompro
store 0 to numele
store "" to nompro

with thisform
numele=.list1.listindex && extrae el numero de posicion que tiene el producto
nompro=.list1.list(numele) && extrae el producto de la posicion
.list2.additem(nompro) && agrega el producto en list2
.list1.removeitem(numele) && quita de list1 el elemento anexado en list2
endwith

listo mi cuate eso es todo...ahora si deseas regresarlo...has lo mismo en el list2 solo cambia el codigo ya que es lo mismo.

saludos desde veracruz, ver. mexico