Public Class Form1



    Dim purchases As Collection
    Dim item As aClass






    Private Sub xResetButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xResetButton.Click
        Me.xNumofTransTextbox.Text = String.Empty
        Me.xNumofTransTextbox.Focus()
    End Sub

    Private Sub xExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xExitButton.Click
        Me.Close()
    End Sub

    Private Sub xNumofTransTextbox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xNumofTransTextbox.Click
        Me.xNumofTransTextbox.Focus()
        Me.xNumofTransTextbox.SelectAll()
    End Sub

    Private Sub xNumofTransTextbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles xNumofTransTextbox.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") _
        AndAlso e.KeyChar <> ControlChars.Back Then
            e.Handled = True
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        purchases = New Collection
    End Sub

    
    
    Private Function GetSavingPercentage(ByVal totalcost As Decimal, ByVal savings As Decimal)
        Dim total As Decimal
        Dim discount As Decimal




    End Function

    Private Sub xEnterButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xEnterButton.Click
        Dim numberofitems As Integer
        Integer.TryParse(Me.xNumofTransTextbox.Text, numberofitems)
    End Sub


    Private Sub xTotalPaidTextbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles xTotalPaidTextbox.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") _
                AndAlso e.KeyChar <> ControlChars.Back _
                AndAlso e.KeyChar <> "." Then
            e.Handled = True
        End If
        
    End Sub

    Private Sub xDisAmtTextbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles xDisAmtTextbox.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") _
                        AndAlso e.KeyChar <> ControlChars.Back _
                        AndAlso e.KeyChar <> "." Then
            e.Handled = True
        End If
        
    End Sub

    Private Sub xAddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xAddButton.Click
        item = New aClass(Me.xTotalPaidTextbox.Text, Me.xDisAmtTextbox.Text)
        purchases.Add(item)


    End Sub

    Private Sub CollectandSumtheTotals(ByVal items As aClass, ByVal total As aClass, ByVal discount As aClass, ByVal numberofitems As Integer)
        Dim item As aClass
cint(total as expression) as integer
        Dim TotalPaid As aClass = "0"
        For Each Total As aClass In purchases
            TotalPaid = Total.show
        Next

        If numberofitems <> items in purchases Then
            MsgBox("Error")
        End If




        Me.xTotSpentLabel.Text = TotalPaid.ToString("C2")
    End Sub
  


End Class

Public Class aClass

    Private total As Integer
    Private discount As Integer



    Public Sub New(ByVal n As Integer, ByVal d As Integer)
        total = n
        discount = d

    End Sub

    Public Function show() As String
        Return total.ToString() + "/" + discount.ToString()
    End Function
End Class