Originariamente inviato da Jonny Gulash
Scusa, ma mi potresti dire qcosa di più precio su extracticon e drawicon? E poi queste icone sono 13x13?

GRAXIE:gren:
estraggono le icone da questo file e la disegnano su una picturebox per esempio
codice:
' in un modulo
Option Explicit
Public Const DI_NORMAL = 3
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
Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long

'routine per estrarle
Call ExtractIconEx(sExeName, lIndex, glLargeIcons(lIndex), glSmallIcons(lIndex), 1)
Dim l As Long
With picLarge
    Set .Picture = LoadPicture("")
    .AutoRedraw = True
    Call DrawIconEx(.hdc, 0, 0, glLargeIcons(lIndex), LARGE_ICON, LARGE_ICON, 0, 0, DI_NORMAL)
    .Refresh
    SavePicture .Image, sSaveDir & "\Icon" & lIndex & "L.bmp"
    Call DestroyIcon(glLargeIcons(lIndex))
End With