Progress - errorres en el treeview

hola a todos:
les escribo debido a que hice un treeview con la .ocx microsoft treeview 6.0 y, cuando en un frame para cargar las respectivas opciones del menu, me informa del siguiente error:
"se ha utlizado el atributo Treeview desconocido en la frase widget:atributo".
cuando lo declaro como handle, me informa tambien de este error en el ima. a continuacio pongo el codigo donde me da problemas:

Tree:TreeView:ImageList = ImageList:Imagelist.
Tree:TreeView:Nodes:CLEAR().

agradeceria cualquier respuesta.

chau

Usa treeview4gl hay un demo en internet

Def var BmpName as CHAR NO-UNDO.
BmpName = search("hlp.bmp").
If BmpName <> ? then
chChTreeview:TreeView4GL:ReplaceImage(1, search("hlp.BMP")).
else
Message "'hlp.bmp' cannot be found is your PROPATH."
view-as alert-box INFO.

END.

/* Clear all images
==============*/

chChTreeview:TreeView4GL:clearImages().


Def var BmpName as CHAR NO-UNDO.

/* Add images to the image list
==========================*/

BmpName = search("drivenet.bmp").
If BmpName <> ? then do :
chChTreeview:TreeView4GL:addimage(search("hlp.bmp")).
chChTreeview:TreeView4GL:addimage(search("drivenet.bmp")).
chChTreeview:TreeView4GL:addimage(search("hlp.bmp")).
chChTreeview:TreeView4GL:addimage(search("drive.bmp")).
chChTreeview:TreeView4GL:addimage(search("drivedsc.bmp")).
chChTreeview:TreeView4GL:addimage(search("mapnet.bmp")).
chChTreeview:TreeView4GL:addimage(search("mycomp.bmp")).
chChTreeview:TreeView4GL:addimage(search("nethood.bmp")).
end.
else
Message "Images canot be found in your PROPATH."
view-as alert-box INFO.