Как вставить радиокнопку, которая нажимается в форме в окне сообщения, которое содержит другую информацию наряду с радиокнопками в визуальных основах?

Question

Я пытаюсь отобразить окно сообщения с ярлыками, текстовым полем, списком и переключателем.В моем окне сообщения, какую бы информацию я ни выбрал в форме, я должен получить эту информацию в окне сообщения.Я мог бы получить всю информацию, кроме кнопок радио.Пожалуйста, кто-нибудь подскажет, как написать код для вставки информации о щелчке переключателя в том же окне сообщения, в котором есть и другая информация.

Public Class Form1
    Const Pizza_Price As Double = 2.99
    Const Fries_Price As Double = 1.99
    Const Drinks_Price As Double = 0.99

    Private Sub Btn1_Click(sender As Object, e As EventArgs) Handles Btn1.Click
        Dim Total As Double




        If IsNumeric(txtPizza.Text) And IsNumeric(txtFries.Text) And IsNumeric(txtDrinks.Text) Then
            Total = Calculate()
            DisplayBill(Total)

        Else



            MsgBox("Incorrect data Entered")

        End If

    End Sub

    Public Function Calculate() As Double

        Dim Total As Double
        Dim pizza_quantity As Integer = txtPizza.Text
        Dim fries_quantity As Integer = txtFries.Text
        Dim drinks_quantity As Integer = txtDrinks.Text

        Total = (Pizza_Price * pizza_quantity) + (Fries_Price * fries_quantity) + (Drinks_Price * drinks_quantity)

        Return Total

    End Function

    Public Sub DisplayBill(Total As Double)

        ListboxDisplay.Items.Add("Item            Price           Quantity")
        ListboxDisplay.Items.Add("Pizza            " + FormatCurrency(Pizza_Price, 2) + "               " + txtPizza.Text + "                   ")
        ListboxDisplay.Items.Add("Fries             " + FormatCurrency(Fries_Price, 2) + "               " + txtFries.Text + "                 ")
        ListboxDisplay.Items.Add("Drinks          " + FormatCurrency(Drinks_Price, 2) + "               " + txtDrinks.Text + "                  ")
        ListboxDisplay.Items.Add("                                                                                    ")
        ListboxDisplay.Items.Add("Total Sales                    " + FormatCurrency(Total, 2))
        LBox.Items.Add("Total Sales:    " + FormatCurrency(Total, 2))


    End Sub




    Private Sub Btn3_Click(sender As Object, e As EventArgs) Handles Btn3.Click
        MessageBox.Show("Order Details:" & vbNewLine &
                        "Number of Pizzas:" & txtPizza.Text & " " & vbNewLine &
                      "Number of Fries Ordered:" & txtFries.Text & " " & vbNewLine &
                         "Number of Drimks Ordered:" & txtDrinks.Text & " " & vbNewLine &
                          LBox.Items(0).ToString & vbNewLine & "Order Type:" & vbNewLine & Radio1.ToString Or Radio2.ToString)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Btn4_Click(sender As Object, e As EventArgs) Handles Btn4.Click
        txtPizza.Clear()
        txtFries.Clear()
        txtDrinks.Clear()

        ListboxDisplay.Items.Clear()
        LBox.Items.Clear()

    End Sub

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

    End Sub

    Private Sub Radio1_CheckedChanged(sender As Object, e As EventArgs) Handles Radio1.CheckedChanged

        If Radio1.Checked = True Then

        Else
            Radio1.Visible = False
        End If
    End Sub

End Class