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 DrawIcon Lib "user32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Sub Command1_Click()
Dim hIcon As Long
Dim i As Long
Dim n As Long
AutoRedraw = True
' Получаем число иконок в файле
n = ExtractIcon(App.hInstance, "c:\windows\system\shell32.dll", -1)
' Рисуем каждую иконку на форме
For i = 0 To n - 1
hIcon = ExtractIcon(App.hInstance, "c:\windows\system\shell32.dll", i)
DrawIcon hdc, i * 32, 0, hIcon
Next
' Освобождаем ресурсы
DestroyIcon hIcon
Refresh
End Sub