如何在具有其他信息的消息框中的表单中插入单击的单选按钮以及 Visual Basics 中的单选按钮？

Question

I am trying to display message box which has labels, text box and listbox and radio button. In my message box whatever information i choose in the form I should get that information in Message box. I could get all the information except the Radio buttons. Please anyone tell me how to write a code for inserting a radio button clicked information in the same message box which has other information too.

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