(will cashapp you & name you ! ) send me a code (visual studio basics) to display this.

The UI is in the picture below.

Here is the code. If you want a ZIP let me know.

Public Class Form1

   Private _orderNumber As Integer = 0

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim oi = New OrderItem With {.Name = "Large", .Price = 4}

       rbnLarge.Tag = oi

       rbnLarge.Name = oi.Name

       oi = New OrderItem With {.Name = "Medium", .Price = 3.25}

       rbnMedium.Tag = oi

       rbnMedium.Name = oi.Name

       oi = New OrderItem With {.Name = "Small", .Price = 2.5}

       rbnSmall.Tag = oi

       rbnSmall.Name = oi.Name

       Dim MeatOptions = {New OrderItem With {.Name = "Turkey", .Price = 0.6},

           New OrderItem With {.Name = "Ham", .Price = 0.6},

           New OrderItem With {.Name = "Roast Beef", .Price = 0.6}}

       clbMeatOptions.Items.AddRange(MeatOptions)

       Dim Fixings = {New OrderItem With {.Name = "Lettuce", .Price = 0.1},

           New OrderItem With {.Name = "Tomato", .Price = 0.25},

           New OrderItem With {.Name = "Mustard", .Price = 0.0},

           New OrderItem With {.Name = "Onion", .Price = 0.1},

           New OrderItem With {.Name = "Cheese", .Price = 0.5},

           New OrderItem With {.Name = "Mayonnaise", .Price = 0.0}}

       clbFixings.Items.AddRange(Fixings)

       ResetInterface()

   End Sub

   Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

       Dim Price As Double

       If rbnLarge.Checked Then

           Price = TryCast(rbnLarge.Tag, OrderItem).Price

       ElseIf rbnMedium.Checked Then

           Price = TryCast(rbnMedium.Tag, OrderItem).Price

       ElseIf rbnSmall.Checked Then

           Price = TryCast(rbnSmall.Tag, OrderItem).Price

       End If

       For Each item In clbMeatOptions.CheckedItems

           Price += TryCast(item, OrderItem).Price

       Next

       For Each item In clbFixings.CheckedItems

           Price += TryCast(item, OrderItem).Price

       Next

       txtSubTotal.Text = String.Format("${0:0.00}", Price)

       Dim Tax As Double

       Tax = Price * 0.079

       txtTax.Text = String.Format("${0:0.00}", Tax)

       txtTotal.Text = String.Format("${0:0.00}", Price + Tax)

       _orderNumber += 1

       lblOrderNumber.Text = String.Format("{0:D4}", _orderNumber)

       MessageBox.Show("Please thank the customer for their business!!")

       ResetInterface()

   End Sub

   Private Sub ResetInterface()

       rbnMedium.Checked = True

       ClearCLB(clbMeatOptions)

       ClearCLB(clbFixings)

       txtSubTotal.Text = ""

       txtTax.Text = ""

       txtTotal.Text = ""

       lblOrderNumber.Text = ""

   End Sub

   Private Sub ClearCLB(clb As CheckedListBox)

       For i As Integer = 0 To clb.Items.Count - 1

           clb.SetItemChecked(i, False)

       Next

       clb.ClearSelected()

   End Sub

End Class

Public Class OrderItem

   Public Name As String

   Public Price As Double

   Public Overrides Function ToString() As String

       Return Name

   End Function

End Class