Выдерание иконки

Option Explicit

   Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias _
           "ExtractAssociatedIconA" (ByVal hInst As Long, _
           ByVal lpIconPath As String, lpiIcon 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

   Dim sPath As String, hIcon As Long, nIcon As Long
   sPath = путь к файлу
   hIcon = ExtractAssociatedIcon(App.hInstance, sPath, nIcon)
   DrawIcon Picture1.hdc, 0&, 0&, hIcon
   DestroyIcon hIcon