Checkbox Group based on Radio Button Group

Public Class Form1
 
    Public intPrice, intSubtotal As Double
    Public chkBox As CheckBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        optHamburger.Checked = True
        chkChoice1.Text = "Lettuce, tomato, and onions"
        chkChoice2.Text = "Mayonnaise and mustard"
        chkChoice3.Text = "French fries"
        intPrice = 0.75
        intSubtotal = 0
        txtPrice.Text = intPrice
        txtSubtotal.Text = ""
        txtTax.Text = ""
        txtTotal.Text = ""
    End Sub
 
    Public Sub optHamburger_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optHamburger.CheckedChanged
        chkChoice1.Text = "Lettuce, tomato, and onions"
        chkChoice2.Text = "Mayonnaise and mustard"
        chkChoice3.Text = "French fries"
        intPrice = 0.75
        intSubtotal = 0
        txtPrice.Text = intPrice
        txtSubtotal.Text = ""
        txtTax.Text = ""
        txtTotal.Text = ""
    End Sub
 
    Private Sub optPizza_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optPizza.CheckedChanged
        chkChoice1.Text = "Pepperoni"
        chkChoice2.Text = "Sausage"
        chkChoice3.Text = "Onions"
        intPrice = 0.5
        intSubtotal = 0
        txtPrice.Text = intPrice
        txtSubtotal.Text = ""
        txtTax.Text = ""
        txtTotal.Text = ""
    End Sub
 
    Private Sub btnOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOrder.Click
        If optHamburger.Checked Then
            If chkChoice1.Checked Or chkChoice2.Checked Or chkChoice3.Checked Then
                intSubtotal = intPrice
            ElseIf chkChoice1.Checked And (chkChoice2.Checked Or chkChoice3.Checked) Then
                intSubtotal = intPrice. * 2
            ElseIf chkChoice1.Checked And chkChoice2.Checked And chkChoice3.Checked Then
                intSubtotal = intPrice * 3
            Else
                intSubtotal = 0
            End If
        End If
        txtSubtotal.Text = intPrice
    End Sub
End Class

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57: