vb有关问题。请帮忙看看（内详）

vb问题。请帮忙看看（内详）
我想完成这样的功能:用API搜索目录下的所有文件,再用API来取出文件的ICON,并ADD给imagelist控件.再通过imagelist控件和LISTVIEW控件结合.按大图标方式显示该目录下的文件.代码如下:
......
......
......
Private   Sub   Command1_Click()
Path   =   Text1.Text
ImageList1.ListImages.Clear

x   =   FindFirstFile(Path,   lpFindFileData)
If   x   =   -1   Then
        MsgBox   "FindFirstFile   err ",   0
Else
        lpiconpath   =   lpFindFileData.cFileName
        hinst   =   ImageList1.hImageList
       
        ExtractAssociatedIcon   hins,   lpiconpath,   lpiIcon '就到这里就出错
        If   y   =   0   Then
                MsgBox   "ExtractAssociatedIcon   err ",   0
        Else
                ImageList1.ListImages.Add   1,   lpFindFileData.cFileName,   y
        End   If
End   if
......
......
执行到ExtractAssociatedIcon   hins,   lpiconpath,   lpiIcon
这行,老是提示实时错误   '453,找不到dll入口点ExtractAssociateIconA   in   shell32.dll
这是怎么回事?
请帮忙看看

[解决办法]
对。利用Picture的Image属性读取StdPicture对象就可以了