Public Shared Function GetIconsCount(ByVal handle As IntPtr, ByVal file As String) As Integer
Return ExtractIconI(handle, file, -1)
End Function
'Signature de la fonction ExtractIconI à ajouter dans votre code. '<DllImport("shell32.dll", SetLastError := True, EntryPoint := "ExtractIcon")> _ 'Public Shared Function ExtractIconI(ByVal hinst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As Integer
End Function