Public Class Form1

    Dim Foods() As String =
    {"Burger", "Chkn Burger", "Sausage", "Nuggets!!!!", "Corn Dog", "Fries", "Onion Rings"}
    Dim Burger() As String =
        {"Cheese", "Bacon", "Xtra Onions"}
    Dim Saus() As String =
        {"Cheese", "Chilli"}
    Dim ChBurg() As String =
    {"Cheese", "XtraSauce"}
    Dim CornDog() As String =
    {"Cheese", "Xtra Sauce"}
    Dim Nuggets() As String =
        {"Plum", "Sweet & Sour"}
    Dim Extra() As Array =
        {Burger, ChBurg, Saus, Nuggets, CornDog}
    Dim Prices() As Double =
        {1.5, 1.75, 1.5, 2.0, 1.5, 1.5, 2.0}
    Dim XtraPrices() As Double =
        {0.75, 0.5, 0.5, 1.0, 0.5}
    ' Cheese, Bacon, Onion, Chili, Sauce.
    Structure Items
        Dim Food As String
        Dim Extras() As String
        Dim Price As Double
    End Structure
    Dim Food(6) As Items

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Food(0).Food = "Burger"
        Food(1).Food = "Chkn Burger"
        Food(2).Food = "Sausage"
        Food(3).Food = "Nuggets!!!!"
        Food(4).Food = "CornDog"
        Food(5).Food = "Fries"
        Food(6).Food = "Onion Rings"
        ' ''Burger
        Label1.Text = "One"
        Food(0).Extras(0) = "Cheese"
        Food(0).Extras(1) = "Bacon"
        Food(0).Extras(2) = "Extra Onions"
        ''Chkn Burg.
        Label1.Text = "Two"
        Food(1).Extras(0) = "Cheese"
        Food(1).Extras(1) = "Xtra Sauce"
        '' Sausage
        Food(2).Extras(0) = "Cheese"
        Food(2).Extras(1) = "Chilli"
        'Nuggets
        Food(3).Extras(0) = "Plum"
        Food(3).Extras(1) = "Sweet & Sour"

        Food(0).Price = 1.25
        Food(1).Price = 1.75
        Food(2).Price = 2.0
        Food(3).Price = 2.0
        For X = 0 To Food.Length
            cbItemChoose.Items.Add(Food(X).Food)
        Next
    End Sub
    Private Sub cbItemChoose_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbItemChoose.SelectedIndexChanged
        lstcbXtra.Items.Clear()
        For X = 0 To 5
            If cbItemChoose.SelectedItem() = Food(X).Food Then
                lstcbXtra.Items.AddRange(Food(X).Extras)
            End If
        Next
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If IsNothing(lstcbXtra.SelectedItem()) Then
            lbOrder.Items.Add(cbItemChoose.SelectedItem())
        Else
            lbOrder.Items.Add(cbItemChoose.SelectedItem() + " | $" + Conversion.Str(Prices(cbItemChoose.SelectedIndex)) + "    --- With ")
            For I = 0 To lstcbXtra.CheckedItems.Count - 1
                lbOrder.Items.Add(lstcbXtra.CheckedItems(I))
            Next
        End If
        '  Totals((Totals.Length) + 1) = Val(Prices(cbItemChoose.SelectedIndex))
        '; tbTotal.Text = Conversion.Str(Totals)
5:      lbOrder.Items.Add("**********************************")
    End Sub

    Private Sub lbOrder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbOrder.SelectedIndexChanged


    End Sub

    Private Sub btnOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOrder.Click

    End Sub
End Class