Как можно получить иконку файла? Даже если не извлекать, то как получить ссылку на нее в самом файле? На форуме нашел следующее:

vb.LoadResPicture(id, restype As Integer) As IPictureDisp

Если это подходит тогда что такое ID , где его взять и для чего он?
Да и вобще непонято как ссылатся на файл? Может есть другие способы?

Aklinчто значит иконку из файла?

иконку - ресурс? обсуждлалось
иконку - то, что к проводнике? лезть в реестр

аффтопитезь: объект либо именован, либо не существует
Например ярлык получает внешний вид файла для которого он создан. Есть ли какой механизм что бы моя иконка получала внешний вид файла(.exe .dok .lnk ...) который я выбрал?

Aklin max_111Например ярлык получает внешний вид файла для которого он создан. Есть ли какой механизм что бы моя иконка получала внешний вид файла(.exe .dok .lnk ...) который я выбрал?

надо иконку из ресурсов выдирать. обсуждалось
Спасибо за помощь. Нашел из того что "обсуждалось" думаю наиболее подходящее ....
Функция LoadResPicture
Но я при своих познаниях VB к сожелению даже понятия не имею как с этим работать...
Обьясните пожлалуйста как и что с "этим" делать???
примитивный пример получения иконки из файла оказал бы болшую помощь.

Вот еще пример нашел, но он мне не подходит, так как у меня известен только путь к файлу...
lHwndImlTB2 = ImageList_Create(ByVal 20&, ByVal 20&, ByVal ILC_COLORDDB Or ILC_MASK, ByVal 6&, ByVal 0&)
Call ImageList_AddIcon(ByVal lHwndImlTB2, ByVal LoadResPicture(201, vbResIcon))

Напишите пожалуйста пример. Ни как немогу найти что то подходящее

Вот нашел такой пример но он у меня не работает. Напишу весь код т.к. незнаю в чем может быть проблема.

В форму

Option Explicit
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" _
(ByVal hInst As Long, ByVal lpsz As String, _
ByVal iType As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal fOptions As Long) As Long
' iType options:
Private Const IMAGE_BITMAP = 0
Private Const IMAGE_ICON = 1
Private Const IMAGE_CURSOR = 2
' fOptions flags:
Private Const LR_LOADMAP3DCOLORS = &H1000
Private Const LR_LOADFROMFILE = &H10
Private Const LR_LOADTRANSPARENT = &H20


Private Sub Command1_Click()
Dim hIcon As Long
' Load an icon called Test.Ico from the directory:

' If the icon contains more than one size of image,
' set cx and cy to the width and height to load
' the appropriate image in:
hIcon = LoadImage(App.hInstance, _
"ПУТЬ К ФАЙЛУ", IMAGE_ICON, _
0, 0, _
LR_LOADFROMFILE Or LR_LOADMAP3DCOLORS)
' Set the picture to this icon:
Set Picture1.Picture = IconToPicture(hIcon)
End Sub

В модуль

Option Explicit

Private Type PictDesc
cbSizeofStruct As Long
picType As Long
hImage As Long
xExt As Long
yExt As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
(lpPictDesc As PictDesc, riid As Guid, _
ByVal fPictureOwnsHandle As Long, ipic As IPicture) As Long

Public Function IconToPicture(ByVal hIcon As Long) As IPicture

If hIcon = 0 Then Exit Function

Dim oNewPic As Picture
Dim tPicConv As PictDesc
Dim IGuid As Guid

With tPicConv
.cbSizeofStruct = Len(tPicConv)
.picType = vbPicTypeIcon
.hImage = hIcon
End With

' Fill in magic IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
With IGuid
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
OleCreatePictureIndirect tPicConv, IGuid, True, oNewPic

Set IconToPicture = oNewPic

End Function

Если есть идеи лутше или видете в чем проблема пожалуйста напишите

Все нашел довольно понятный пример. Кому надо идем по ссылке
http://p4u.narod.ru/extract_icons.htm