IncoExtractor

Dim hIconRet As Long
Dim hIcon As Long

hIconRet = ExtractAssociatedIcon(App.hInstance, PathAndFileName, hIcon)
Call DrawIcon(Picture1.hDc, 1, 1, hIconRet)

'Attenzione: la dichiarazione di ExtractAssociatedIcon nel

'file WIN32API.TXT e' sbagliata! (ci ho perso un quarto d'ora

'di insulti alla M$ per capire dove...): l'alias non e'

'ExtractAssociateIcon ma ExtractAssociatedIcon con la "d"!!!

'Ti consiglio di dare un'occhio anche alle API

'ExtractIcon() e FindExecutable() che sono molto interessanti.

'Ricorda di settare la prop .Autoredraw = true se non vuoi

'che l'icona disegnata si cancelli quando la Picture1 viene

'coperta, oppure metti il codice sopra descritto nell'evento

'paint.