(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

some have built technology like spoofed call blockers into their networks, so there's nothing you would even have to install.

this happens because the number is known for scamming, they don't want it to me known as "scam likely." perhaps it's just a telemarketer. maybe it's an identity thief. it might even be a scam artist.  

either way, "scam likely" is probably not an old friend whose number you forgot that you saved. it's your wireless carrier's way of letting you know: answer at your own risk.

explanation:

to combat the seemingly rising epidemic of spam callers in the u.s., the nation's four major wireless carriers have been trying out new methods to reduce the number of unsolicited calls americans receive each day.

some have built technology like spoofed call blockers into their networks, so there's nothing you would even have to install.

hope this . mark me brainliest.