some activex controls using imagelist by means of HIMAGELIST, or using the SHGetFileInfo function in Shell32, well , someone know how i can obtain this hImageList or the sintax for SHGetFileINfo syntax for foxpro?

the function in VB is :

Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * 260
szTypeName As String * 80
End Type

Private Declare Function SHGetFileInfo Lib "shell32" Alias "SHGetFileInfoA" _
(ByVal pszPath As Long, _
ByVal dwFileAttributes As Long, _
psfi As SHFILEINFO, _
ByVal cbFileInfo As Long, _
ByVal uFlags As Long) As Long


Best Regards

Francisco Morosini