FoxPro/Visual FoxPro - Colocando Imagenes BMP en ListBox

Amigos :
Nuevamente recurriendo a ustedes, estoy tratando de poner una imagen
BMP al margen izquierdo de cada nombre de alumno segun el sexo del
alumno osea masculino o femenino, previamente dichos datos aparecen
cargados en el ListBox...
Cabe mencionar que el ListBox esta compuesto 3 campos unidos que
reflejan una sola columna.

En la base de datos el campo SEXO toma un valor numerico es decir .
1 = Masculino
2 = Femenino

Aqui el codigo de lo avanzado solo me muestra la imagen BMP de
Femenino...

LOCAL cExtension
cExtension = 0
WITH Thisform.LstProgramado
FOR lnItem = 1 To .ListCount
IF .Selected(lnItem)
WAIT WINDOW "Item Seleccionado :" + .List(lnItem) Timeout .4
Endif
cExtension = IIF((SEXO) = 1,"Masculino","Femenino")
WAIT WINDOW "Tipo : " + ALLT(cExtension) TIME .2
DO CASE
CASE cExtension = "Masculino"
THIS.Picture(lnItem) = "C:SISGENAPLICACIONBMPSUSER.BMP"
CASE cExtension = "Femenino"
THIS.Picture(lnItem) = "C:SISGENAPLICACIONBMPS
SUPPORT.BMP"
ENDCASE
ENDFOR

Agradezco sus comentarios y sugerencias

Saludos,

GABRIEL

Bueno yo no lo he hecho con list
yo lo hago con grid
intentalo veras que da lo mismo y con caracteristicas mejores

Suerte

Gracias amigo Saul por tus consejos...

Pero trabajo mas con el ListBox...

Replantie mi codigo y logre resolver el problema.

Saludos,

Gabriel

Hola me podrias decir que le adicionaste a tu codigo para que funcione, me encuentro en el mismo problema

gracias

LOCAL cExtension
cExtension = 0
WITH Thisform.Lst1
FOR lnItem = 1 To .ListCount
IF .Selected(lnItem)
WAIT WINDOW "Item Seleccionado :" + .List(lnItem) Timeout .4
Endif
cExtension = IIF((SEXO) = 1,"Masculino","Femenino")
WAIT WINDOW "Tipo : " + ALLT(cExtension) TIME .2
DO CASE
CASE cExtension = "Masculino"
Thisform.Lst1.Picture(lnItem) = "C:fotomen.bmp"
CASE cExtension = "Femenino"
Thisform.Lst1.Picture(lnItem) = "C:fotogirl.bmp"
ENDCASE
ENDFOR
ENDWITH