SoloCodigo

Hola, estoy atorado con un código y ya no sé como hacerle para poder solucionar el problema haber si alguien puede ayudarme, bueno estoy llenando una lista de ítems con iconos en un treeview y no lo cargar (eax=-1) el icono lo estoy extrayendo con SHGetFileInfo y luego la función ImageList_Create y luego ImageList_Add  en esta función (ImageList_Add) es donde falla la operación, con un bitmap si funciona, pero extayendo el icono(SHGetFileInfo) no funciona (eax=-1) supuestamente en  ImageList_Add   se debe usar un bitmap y no un icono, entonces como le puedo hacer para cargar el icono.    

Gracias como siempre Eternal, he encantarado algo en VB, voy a verlo haber que puedo sacar .