Calculate Change

    Private Sub CalculateChange(TotalChange As Integer)
        Dim bills = {1000, 500, 100, 50, 20}
        Dim Total1000, Total500, Total100, Total50, Total20 As New List(Of Integer)
        Dim BillCounts = {Total1000, Total500, Total100, Total50, Total20}
        For index = 0 To bills.Length - 1
            Do Until bills(index) > TotalChange
                BillCounts(index).Add(1)
                TotalChange -= bills(index)
            Loop
        Next
        Label1000.Text = Total1000.Sum.ToString
        Label500.Text = Total500.Sum.ToString
        Label100.Text = Total100.Sum.ToString
        Label50.Text = Total50.Sum.ToString
        Label20.Text = Total20.Sum.ToString
        LabelLeftOver.Text = TotalChange.ToString
    End Sub