Private Const Question = 2
Private Const Critical = 3
Private Const Information = 4
Private Const Exclamation = 1

Dim iconn%
Dim iconfilename$
Dim windir$
Dim hModule&
Dim iconmod$
Dim Iconh&
Dim X&
Private Declare Function GetSystemDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

iconmod$ = "c:\windows\system32\user32.dll" ' se avete un altro path cambiate questo

'information
Picture1.Cls
DrawIcon .Picture1.hdc, 0, 0, ExtractIcon(1, iconmod$, Information)
Picture1.Refresh
savepicture picture1.image , "c:\1.bmp"
'exclamation
Picture2.Cls
DrawIcon .Picture2.hdc, 0, 0, ExtractIcon(1, iconmod$, Exclamation)
.Picture2.Refresh
savepicture picture2.image , "c:\2.bmp"

'question
.Picture3.Cls
DrawIcon .Picture3.hdc, 0, 0, ExtractIcon(1, iconmod$, Question)
.Picture3.Refresh
savepicture picture3.image , "c:\3.bmp"
'critical
.Picture4.Cls
DrawIcon .Picture4.hdc, 0, 0, ExtractIcon(1, iconmod$, Critical)
.Picture4.Refresh
savepicture picture4.image , "c:\4.bmp"

:mavieni: