' Déclaration de la fonction d'extraction
Declare Function ExtractToHicon Lib "shell32.dll" Alias "ExtractIconA"(ByVal hInst As Integer, ByVal FileName As String, ByVal IconIndex As Integer) As IntPtr
Public Function ExtractToIcon(ByVal FileName As String, ByVal IconIndex As Integer) As Icon
' Cette fonction extrait l'îcone en IntPtr et la convertit en Icon
Dim IconToInteger As IntPtr = ExtractToHicon(0, FileName, IconIndex)
Dim IconExtrait As Icon = Icon.FromHandle(IconToInteger)
IconExtrait.Dispose()
Return IconExtrait
End Function