Download IconBuddy for Visual FoxPro 6 and 7 Version 1.3 File #15832. It has extract2imagelist method which either add new icon to an image list or finds existing one if it's the same. In any case it returns an Index of the image in the ImageList

>
>It works fine for to delete the file.
>
>but I have another question for this line of code to retrieve an icon from
>
>(Ole ImageListctrl properties in Images - index 1) from another ActiveX control.
>
>Always give the first icon ( index 1) for word.doc even my excel.xls (index 2) was attached to the Listview1, the same word icon for excel.xls
>
>How to code to get the right icon as variant for each file attached ?
>for me, I put 1 that is why, get 1 word.doc by default.
>
>TIA for anybody who can help me out.
>
>

>thisform.listView1.ListItems.Add(index as variant,
key as variant,text as variant,icon as variant,smallicon as variant) as lListItem
>
>*icon as variant = 1, how to get 2 for excel.xls
>
>loItem1 =thisForm.listview1.listItems.Add(,,m.myfile,1,1)
>