Public Class UI

#Region " Windows Form Designer generated code "
#End Region

    Dim orders As ArrayList

    Private Sub UI_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim myBL As New BL
            orders = myBL.getOrders
            Dim o As Order
            For Each o In orders
                ComboBox1.Items.Add(o.OrderID)
            Next
        Catch ex As Exception
            MessageBox.Show("Exception: " + ex.Message)
        End Try
    End Sub

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        Try
            Dim o As Order
            Dim oid As Integer = ComboBox1.SelectedItem
            For Each o In orders
                If (o.OrderID = oid) Then
                    lblPreTotal.Text = FormatCurrency(o.PreTotal)
                    lblDiscount.Text = FormatCurrency(o.Discount)
                    lblShipping.Text = FormatCurrency(o.Shipping)
                    lblOrderTotal.Text = FormatCurrency(o.OrderTotal)
                    Exit For
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Exception: " + ex.Message)
        End Try
    End Sub
End Class