Hi Ibai

>Maybe I havent explain it well, becouse my english is not good enough.


You got a good deal right now, a Brazilian with English not very good also explaining a Spanish with bad English. But, I am right that will understand each other. ;)

Before to start is good to know that we have two releases of Listview/Imagelist (old versions and SP4). You must use the second one.

So, here some sample how to use it:

Step 1 - Populating the imagelist

procedure myimagelist.init
With this
   .ListImages.Add(,'Image1',LoadPicture('MyPictureFile1.bmp'))
   .ListImages.Add(,'Image2',LoadPicture('MyPictureFile2.bmp'))
Endwith
endproc

Step 2 - Setup and populatin the Listview

procedure mylistview.init
with this
   .object.icons     =ThisForm.myimagelist.object
   .object.smallicons=ThisForm.myimagelist.object
   .ColumnHeaders.Add( , , "Depart",       .Width / 3)
   .ColumnHeaders.Add( , , "ID",           .Width / 3)
   .ColumnHeaders.Add( , , "Situation",    .Width / 3)
   .View = 0
endwith
Sele mytable
Scan
    o=THIS.listitems.Add
    o.smallicon = "image1"
    o.Icon      = "image2"
    o.Text      = substr(name,1,11)
    o.subitems(1)= depto
    o.subitems(2)= salesman_id
    o.subitems(3)= "working"
Endscan
endproc

I hope that is enough for help you !!

Claudio