Public Class SodaMachine

    Dim total, change, dollars, quarters, nickels, dimes As Double
    Dim coke, yello, dew As Integer

    Private Sub PictureBox1(sender As System.Object, e As System.EventArgs) Handles DietCoke.Click

        If total < 1.25 Then
            ListBox1.Items.Add("Please enter $1.25")
        Else
            ProgressBar1.Value = ProgressBar1.Value - 1
            total = (total - 1.25)
            ListBox1.Items.Add("Total: " & total)
            change = total
            ListBox1.Items.Add("Change: " & change)
            total = 0
        End If


    End Sub