Thanks for you example, but couldn't understand it. Could you give a
short explanation on what it does.

So far, I've tried this:

selec codigo

SELEC codigo.pic, codigo.descripcion FROM codigo INTO ARRAY fotos

*filling the image list control

FOR i=1 TO ALEN(fotos,1)

THIS.olecontrol1.listimages.ADD(i,fotos[i,2],LOADPICTURE(fotos[i,1]))

ENDFOR


** filling the listview control with images from image list

FOR i=1 TO ALEN(fotos,1)

THIS.olecontrol2.listitems.ADD(i,,fotos[i,2],this.olecontrol1.listimages.item[i].picture)

ENDFOR


But I get a message indicating me that image list control hasn't been initiliazed yet.

Practically, What I need is: fill the image list, then fill the list view
control wiht those images, it seems like is not so hard but I can't figure
out what's exactly my error

TIA

>Here is one instance of some code that I have:
>
>

>procedure mylistview.init
>this.object.icons        = ThisForm.myimagelist.object
>this.object.smallicons   = ThisForm.myimagelist.object
>
>sele mytable
>scan
>    oObj                 = THIS.listitems.ADD
>    cwtype               = IIF(DATE() > ddata_vali .OR. !lstatus, "btn_off", "btn_on")
>    oObj.TAG             = mytable.cfaixa_id + mytable.ctabela_id
>    oObj.smallicon       = cwtype
>    oObj.ICON            = cwtype
>endscan
>endproc
>

>
>HTH
>
>Claudio