Как вытащить иконку из .exe-файла? - VB

Формулировка задачи:

Может ли, например, API вытащить иконку из .exe-файла? Спасибо заранее.

Решение задачи: «Как вытащить иконку из .exe-файла?»

textual
                            Листинг программы 
                        

                            Global lngIcon
Global strProgram
Global strSaveIconFile
 
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst _
As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Declare Function DrawIcon Lib "user32" (ByVal hDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal hIcon As Long) As Long
Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
 
Public Function OpenIcon(path As String, IconInd As Integer, lpPicture As PictureBox)
  lngIcon = ExtractIcon(App.hInstance, path, IconInd)
  DrawIcon lpPicture.hDC, 0, 0, lngIcon
End Function
                        