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

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