FunCambio(Precio: 10.28m, Paga: 50m);

  decimal Precio = 12.28m;
            decimal Paga = 50m;
            int[] Euros = {
			2,
			1
		};
            decimal[] Centimos = {
			0.5m,
			0.2m,
			0.1m,
			0.05m,
			0.02m,
			0.01m
		};
 
            if (Precio <= Paga)
            {
 
                decimal Devolver = Paga - Precio;
 
              List<decimal> Cambio = new List<decimal>();
 
 
 
                while (Devolver >= 1)
                {
                    foreach (int Moneda in Euros)
                    {
                        if (Devolver >= Moneda)
                        {
                            Devolver -= Moneda;
                            Cambio.Add(Moneda);
                            break; 
                        }
                    }
                }
                while (Devolver > 0)
                {
                    foreach (decimal Moneda in Centimos)
                    {
                        if (Devolver >= Moneda)
                        {
                            Devolver -= Moneda;
                            Cambio.Add(Moneda);
                            break; 
                        }
                    }
                }

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
 
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            FunCambio(Precio: 10.28m, Paga: 50m);
        }
        private void Form1_Load(object sender, EventArgs e)
        {
 
        }
 
        /// <summary>
        /// Calcula el número óptimo de monedas a devolver
        /// </summary>
        /// <param name="Precio">Total a abonar</param>
        /// <param name="Paga">Total abonado</param>
        public void FunCambio(decimal Precio, decimal Paga)
        {
 
           // decimal Precio = 12.28m;
           // decimal Paga = 50m;
            int[] Euros = {
			2,
			1
		};
            decimal[] Centimos = {
			0.5m,
			0.2m,
			0.1m,
			0.05m,
			0.02m,
			0.01m
		};
 
            if (Precio <= Paga)
            {
 
                decimal Devolver = Paga - Precio;
 
              List<decimal> Cambio = new List<decimal>();
 
 
 
                while (Devolver >= 1)
                {
                    foreach (int Moneda in Euros)
                    {
                        if (Devolver >= Moneda)
                        {
                            Devolver -= Moneda;
                            Cambio.Add(Moneda);
                            break; 
                        }
                    }
                }
                while (Devolver > 0)
                {
                    foreach (decimal Moneda in Centimos)
                    {
                        if (Devolver >= Moneda)
                        {
                            Devolver -= Moneda;
                            Cambio.Add(Moneda);
                            break; 
                        }
                    }
                }
 
                //MUESTRA EL RESULTADO 
                string Resultado = null;
                int n2E = 0;
                int n1E = 0;
                int n50c = 0;
                int n20c = 0;
                int n10c = 0;
                int n5c = 0;
                int n2c = 0;
                int n1c = 0;
                decimal TotalADevolver = Paga - Precio;
 
                foreach (decimal Mda in Cambio)
                {
                switch (Convert.ToString(Mda))
                    {
                        case "2": n2E += 1; break;
                        case "1": n1E += 1; break;
                        case "0,5": n50c += 1; break;
                        case "0,2": n20c += 1; break;
                        case "0,1": n10c += 1;break;
                        case "0,05":n5c += 1;break;
                        case "0,02":n2c += 1;break;
                        case "0,01":n1c += 1;break;
                    }
                }
 
                Resultado = string.Format("Precio: {1:0.00}€{0}" +
                    "Cantidad abonada: {2:0.00}€{0}" +
                    "Total a devolver: {3:0.00}€{0}{0}" + 
                    "CAMBIO{0}" + "2€: {4}{0}" + 
                    "1€: {5}{0}" + "50 céntimos: {6}{0}" + 
                    "20 céntimos: {7}{0}" + 
                    "10 céntimos: {8}{0}" + 
                    "5 céntimos: {9}{0}" + 
                    "2 céntimos: {10}{0}" + 
                    "1 céntimos: {11}{0}", 
                    Environment.NewLine, 
                    Precio, 
                    Paga, 
                    TotalADevolver, n2E, n1E, n50c, n20c, n10c,
                n5c, n2c, n1c);
 
                MessageBox.Show(Resultado);
            }
            else
            {
                MessageBox.Show("El valor abonado es inferior al total a pagar");
            }
        }
 
    }
}
 

Imports System.Text
 
Public Class Form1
    Friend WithEvents Button2 As New Button
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FunCambio(Precio:=5.2, Paga:=50)
 
    End Sub
    Public Sub FunCambio(ByVal Precio As Decimal, ByVal Paga As Decimal)
        Dim Euros() As Integer = {2, 1}
        Dim Centimos() As Decimal = {0.5, 0.2, 0.1, 0.05, 0.02, 0.01}
        If Precio <= Paga Then
 
 
            Dim Devolver As Decimal = Paga - Precio     'Total a devolver
            Dim Cambio As New List(Of Decimal)          'Lista de cambio recibido
 
            While Devolver >= 1
                For Each Moneda As Integer In Euros
                    If Devolver >= Moneda Then
                        Devolver -= Moneda
                        Cambio.Add(Moneda)
                        Exit For
                    End If
                Next
            End While
            While Devolver > 0
                For Each Moneda As Decimal In Centimos
                    If Devolver >= Moneda Then
                        Devolver -= Moneda
                        Cambio.Add(Moneda)
                        Exit For
                    End If
                Next
            End While
 
            'Muestra el resultado
            Dim Resultado As String
            Dim n2E, n1E, n50c, n20c, n10c, n5c, n2c, n1c As Integer
            Dim TotalADevolver As Decimal = Paga - Precio
            For Each N As Decimal In Cambio.ToList
                Select Case N
                    Case 2D : n2E += 1
                    Case 1D : n1E += 1
                    Case 0.5D : n50c += 1
                    Case 0.2D : n20c += 1
                    Case 0.1D : n10c += 1
                    Case 0.05D : n5c += 1
                    Case 0.02D : n2c += 1
                    Case 0.01D : n1c += 1
                End Select
            Next
 
            Resultado = String.Format("Precio: {1:0.00}€{0}" &
                                      "Cantidad abonada: {2:0.00}€{0}" &
                                      "Total a devolver: {3:0.00}€{0}{0}" &
                                      "CAMBIO{0}" &
                                      "2€: {4}{0}" &
                                      "1€: {5}{0}" &
                                      "50 céntimos: {6}{0}" &
                                       "20 céntimos: {7}{0}" &
                                          "10 céntimos: {8}{0}" &
                                            "5 céntimos: {9}{0}" &
                                            "2 céntimos: {10}{0}" &
                                             "1 céntimos: {11}{0}",
                                      Environment.NewLine, Precio, Paga, TotalADevolver, n2E, n1E, n50c, n20c, n10c, n5c, n2c, n1c)
 
            MessageBox.Show(Resultado)
        Else
            MessageBox.Show("El valor abonado es inferior al total a pagar", "Atención", Nothing, MessageBoxIcon.Exclamation)
        End If
    End Sub
 
End Class

        Dim lstImages As New ImageList()
        lstViewJPG.Items.Clear()
        lstViewJPG.LargeImageList = lstImages
        lstViewJPG.View = View.LargeIcon
 
        Dim strCacheDir As String = CStr(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache))
        Dim strFiles As IEnumerable = Directory.EnumerateFiles(strCacheDir, "*", SearchOption.AllDirectories)
        For Each strFileName As String In strFiles
            Select Case Path.GetExtension(strFileName)
                Case ".jpg"
 
                    Try
 
                        Dim Imagen As Image = Image.FromFile(strFileName)
                        lstImages.ImageSize = New Size(CInt((Imagen.Width * 50) / Imagen.Height), 50)
                        lstImages.Images.Add(Path.GetFileName(CStr(strFileName)), Imagen)
                        lstViewJPG.Items.Add(Path.GetFileName(CStr(strFileName)), Path.GetFileName(CStr(strFileName)))
                        Imagen.Dispose()
                    Catch ex As Exception
                        lstImages.ImageSize = New Size(CInt(50), 50)
                    End Try
            End Select
 
        Next

        Dim imageListSmall As New ImageList()
        Dim iconForFile As Icon
        ListView1.View = View.Details
        iconForFile = System.Drawing.Icon.ExtractAssociatedIcon("C:\Windows\System32\notepad.exe")
 
        imageListSmall.Images.Add(iconForFile)
        ListView1.SmallImageList = imageListSmall
 
        Dim ColumnHeadr As New ColumnHeader
        ListView1.Columns.Add(ColumnHeadr)
        ListView1.Items.Add("Notepad.exe", 0)
 

        Dim imageListSmall As New ImageList()
        Dim iconForFile As Icon
        ListView1.View = View.Details
        iconForFile = System.Drawing.Icon.ExtractAssociatedIcon("C:\Windows\System32\notepad.exe")
 
        'Fix a smaller version with interpolation
        Dim bm As New Bitmap(iconForFile.ToBitmap)
        Dim thumb As New Bitmap(16, 16)
        Dim g As Graphics = Graphics.FromImage(thumb)
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.DrawImage(bm, New Rectangle(0, 0, 16, 16), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)
        g.Dispose()
        bm.Dispose()
 
        imageListSmall.Images.Add("1", thumb)
        ListView1.SmallImageList = imageListSmall
 
        Dim ColumnHeadr As New ColumnHeader
        ListView1.Columns.Add(ColumnHeadr)
        ListView1.Items.Add("notepad.exe", "1")

", ShellIcon.GetIcon(("C:\windows\system32\notepad.exe", 0)

", ShellIcon.GetIcon(("C:\windows\system32\notepad.exe", 1)

", ShellIcon.GetIcon(("C:\windows\system32\notepad.exe", 2)

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ListView1.View = View.Details
        Dim imgList As New ImageList
        imgList.Images.Add("1", ShellIcon.GetIcon("C:\windows\system32\notepad.exe", 1))
        ListView1.SmallImageList = imgList
 
        Dim ColumnHeadr As New ColumnHeader
        ListView1.Columns.Add(ColumnHeadr)
        ListView1.Items.Add("notepad.exe", "1")
 
 
    End Sub
End Class
 
 
 
Public NotInheritable Class ShellIcon
    Private Sub New()
    End Sub
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As IntPtr
        Public dwAttributes As UInteger
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
        Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
        Public szTypeName As String
    End Structure
 
    Private Class Win32
        Public Const SHGFI_ICON As UInteger = &H100
        Public Const SHGFI_LARGEICON As UInteger = &H0
        ' 'Large icon
        Public Const SHGFI_SMALLICON As UInteger = &H1
        ' 'Small icon
        <DllImport("shell32.dll")> _
        Public Shared Function SHGetFileInfo(pszPath As String, dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, cbSizeFileInfo As UInteger, uFlags As UInteger) As IntPtr
        End Function
 
        <DllImport("User32.dll")> _
        Public Shared Function DestroyIcon(hIcon As IntPtr) As Integer
        End Function
 
    End Class
 
 
    Shared Sub New()
    End Sub
 
    Public Shared Function GetSmallIcon(fileName As String) As Icon
        Return GetIcon(fileName, Win32.SHGFI_SMALLICON)
    End Function
 
    Public Shared Function GetLargeIcon(fileName As String) As Icon
        Return GetIcon(fileName, Win32.SHGFI_LARGEICON)
    End Function
 
    Public Shared Function GetIcon(fileName As String, flags As UInteger) As Icon
        Dim shinfo As New SHFILEINFO()
        Dim hImgSmall As IntPtr = Win32.SHGetFileInfo(fileName, 0, shinfo, CUInt(Marshal.SizeOf(shinfo)), Win32.SHGFI_ICON Or flags)
 
        Dim icon As Icon = DirectCast(System.Drawing.Icon.FromHandle(shinfo.hIcon).Clone(), Icon)
        Win32.DestroyIcon(shinfo.hIcon)
        Return icon
    End Function
End Class