Public Function GetExeIcon(ByVal sFile As String, ByVal Index As Long) As _
  Picture
'// Läd Icon aus EXE/DLL Datei
 
Dim Pic As Picture
Dim PicDes As TPictDesc
Dim IID_IDispatch As TGUID
Dim Handle As Long
 
Handle = ExtractAssociatedIcon(App.hInstance, sFile, Index)
If Handle = 0 Then Exit Function
 
PicDes.cbSizeofStruct = Len(PicDes)
PicDes.PicType = vbPicTypeIcon
PicDes.hImage = Handle
IID_IDispatch.Data1 = &H20400
IID_IDispatch.Data4(0) = &HC0
IID_IDispatch.Data4(7) = &H46
Call OleCreatePictureIndirect(PicDes, IID_IDispatch, True, Pic)
 
Set GetExeIcon = Pic
 
End Function