Ктонибудь знает как обоитис без PictureBox-а.
сам код примерно так виглидит:
- Код: Выделить всё
'деклараций
Const DI_MASK = &H1
Const DI_IMAGE = &H2
Const DI_NORMAL = DI_MASK Or DI_IMAGE
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Dim lngIcon As Long
Dim fName As String
'.............
'основная часть кода
picIcon.Picture = Nothing
lngIcon = ExtractAssociatedIcon(App.hInstance, FolderPath & fName, 2)
DrawIconEx picIcon.hdc, 0, 0, lngIcon, 0, 0, 0, 0, DI_NORMAL
DestroyIcon lngIcon
picIcon.Picture = picIcon.Image
imListBig.ListImages.Add , "Folder", picIcon.Picture
imListSmall.ListImages.Add , "Folder", picIcon.Picture


