Private Type SHFILEINFO
    hIcon As Long           ' : icon
    iIcon As Long     ' : icondex
    dwAttributes As Long        ' : SFGAO_ flags
    szDisplayName As String * MAX_PATH ' : display name (or path)
    szTypeName As String * 80     ' : type name
End Type
 
Dim hImage As Long, udtFI As SHFILEINFO
 
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
 
'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, Picture1.hdc, 0, 0, ILD_TRANSPARENT

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