FoxPro/Visual FoxPro - Localizar elemento en listbox y eliminarlo?

Tengo un problema con la localización de un elemento de un cuadro de lista. Intento que el operador introduzca el elemento a eliminar en un cuadro de texto y localizar ese elemento para eliminarlo.
El código para añadir elementos al cuadro de lista es:

*inicio
if empty(thisform.aoper.value)
messagebox("Error: Valor de operación incorrecto.")
thisform.aoper.setfocus
else
thisform.list1.additem(thisform.aoper.value)
thisform.aoper.value=" "
thisform.aoper.setfocus
thisform.refresh
endif
*fin

El código que intento funcione para localizar un elemento y eliminarlo es el que sigue:

*inicio
for cont1=1 to thisform.list1.listcount
if (thisform.aoper.value)=(thisform.list1.list(cont1))
messagebox("encontrado")
linea=thisform.list1.list(cont1)
thisform.list1.removeitem(linea)
else
messagebox("no encontrado")
endif

next

*fin

Si lo que hago es seleccionar un elemento del cuadro de lista entonces me funciona bien lo siguiente:

*inicio
if thisform.list1.listindex>0
thisform.list1.removeitem(thisform.list1.listindex)
endif
*fin

Pero lo que yo intento es que se busque el elemento a eliminar, no que se seleccione y después se borre.

¿Alguien me puede echar una mano?
Gracias por adelantado.

Ángel Isorna.

TIENES UNA SOLUCION SENCILLA. ANTES DE BUSCAR, SELECCIONAR Y BORRAR GUARDA EL ELEMENTO DONDE ESTAS RELAIZA LA OPERACION Y VUIELVE A EL ASI TE QUEDARAS EN EL ELEMENTO EN EL QUE ESTABAS