Private Type IconType
  cbSize As Long
  picType As PictureTypeConstants
  hIcon As Long
End Type
 
Private Type CLSIdType
  id(16) As Byte
End Type
 
Private Type ShellFileInfoType
  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.dll" Alias _
        "SHGetFileInfoA" (ByVal pszPath As String, ByVal _
        dwFileAttributes As Long, psfi As ShellFileInfoType, _
        ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib _
        "oleaut32.dll" (pDicDesc As IconType, riid As CLSIdType, _
        ByVal fown As Long, lpUnk As Object) As Long
 
Const Small = &H101
Const Large = &H100

Public Function GetIcon() As IPictureDisp
  Dim Result&
  Dim Icon As IconType
  Dim Unkown As IUnknown
  Dim CLSID As CLSIdType
  Dim ShellInfo As ShellFileInfoType
  Dim Size&, File$
 
    File = "c:\winzip.log"
 
    Call SHGetFileInfo(File, 0, ShellInfo, Len(ShellInfo), Small)
 
    Icon.cbSize = Len(Icon)
    Icon.picType = vbPicTypeIcon
    Icon.hIcon = ShellInfo.hIcon
    CLSID.id(8) = &HC0
    CLSID.id(15) = &H46
    Result = OleCreatePictureIndirect(Icon, CLSID, 1, Unkown)
    Set GetIcon = Unkown
End Function

Picture1.Picture = GetIcon

Gru?

Ralf