Dim hImage As Long, udtFI As SHFILEINFO
Dim MemoryDC As Long
 
MemoryDC = CreateCompatibleDC(Picture1.hdc)
 
'get the handle of the system image list that contains the large icon images
hImage = SHGetFileInfo("c:\", ByVal 0&, udtFI, Len(udtFI), SHGFI_SYSICONINDEX _
  Or SHGFI_LARGEICON)
'draw  the icon (normal)
ImageList_Draw hImage, udtFI.iIcon, MemoryDC, 0, 0, ILD_TRANSPARENT

Gr??e,
Frank
-----------------------------------
die deutsche Community f?r PDA-Programmierer (Pocket PC und Palm OS)