Lunch order application

[Xiaode]

I only manage to do this assignment using combo box anyone has any idea to do this using option box???

Specifications

Create a form based application that resembles the above figure. For each order, the user selects one main course item and zero or more of the associated add-ons. When the user clicks on the Place Order button, the application displays the sub total, tax, and total due for the order. It also enables the Print Receipt button. To print a copy of the lunch order form, the user can click on the Print Receipt button. This also clears the add-on check boxes and resets the Main course option button to Hamburger.

For the three add-ons and prices change based on the main course item that’s selected. For a hamburger, the three items are: (1) Lettuce, tomato, and onions; (2) Mayonnaise and mustard; and (3) French fries. The price of each is 75 cents. For a pizza, the three items are: (1) Pepperoni, (2) Sausage, and (3) Olives. The price of each is 50 cents. For a salad, the three items are the ones shown above and the price of each is 25 cents.
The sub total is equal to the cost of the main course item, plus the cost of the
Add-ons. The tax is the sub total * .0785. And the total due is the sub total + tax. To print a copy of the lunch order form when the user clicks on the Print Receipt button, you can use the PrintForm method of the form object.

Thank you

These are my code

Const NAME_POS = 0
Const ADDON_PRICE_POS = 1
Const MAIN_PRICE_POS = 2
Const ADDON_ARRAY_POS = 3
 
Const TAX_RATE = 0.0785
 
Dim Products(2, 3) As Variant
Dim HamburgerAddOns(0 To 2) As String
Dim PizzaAddOns(0 To 2) As String
Dim SaladAddOns(0 To 2) As String
 
Private Sub Form_Load()
    InitArrays
    InitCboMainCourse
    ResetForm
End Sub
 
Private Sub InitArrays()
    Products(0, NAME_POS) = "Hamburger"
    Products(1, NAME_POS) = "Pizza"
    Products(2, NAME_POS) = "Salad"
 
    Products(0, ADDON_PRICE_POS) = CCur(0.75)
    Products(1, ADDON_PRICE_POS) = CCur(0.5)
    Products(2, ADDON_PRICE_POS) = CCur(0.25)
 
    Products(0, MAIN_PRICE_POS) = CCur(6.95)
    Products(1, MAIN_PRICE_POS) = CCur(5.95)
    Products(2, MAIN_PRICE_POS) = CCur(4.95)
 
    HamburgerAddOns(0) = "Lettuce, Tomato, and Onions"
    HamburgerAddOns(1) = "Mayonnaise and Mustard"
    HamburgerAddOns(2) = "French fries"
    Products(0, ADDON_ARRAY_POS) = HamburgerAddOns
 
    PizzaAddOns(0) = "Pepperoni"
    PizzaAddOns(1) = "Sausage"
    PizzaAddOns(2) = "Olives"
    Products(1, ADDON_ARRAY_POS) = PizzaAddOns
 
    SaladAddOns(0) = "Croutons"
    SaladAddOns(1) = "Bacon bits"
    SaladAddOns(2) = "Bread stick"
    Products(2, ADDON_ARRAY_POS) = SaladAddOns
End Sub
 
Private Sub InitCboMainCourse()
    Dim i As Integer
 
    For i = LBound(Products, 1) To UBound(Products, 1)
        cboMainCourse.AddItem Products(i, NAME_POS)
    Next
End Sub
 
Private Sub ResetForm()
    cboMainCourse.ListIndex = 0
    cmdPrintReceipt.Enabled = False
End Sub
 
Private Sub cboMainCourse_Click()
    Dim i As Integer
 
    cmdPrintReceipt.Enabled = False
 
    For i = chkAddOn.LBound To chkAddOn.UBound
        chkAddOn(i).Value = vbUnchecked
        chkAddOn(i).Caption = Products(cboMainCourse.ListIndex, ADDON_ARRAY_POS)(i)
    Next
End Sub
 
Private Sub cmdPlaceOrder_Click()
    DisplayReceipt
    cmdPrintReceipt.Enabled = True
End Sub
 
Private Sub cmdPrintReceipt_Click()
    Me.PrintForm
    ResetForm
End Sub
 
Private Sub cmdExit_Click()
    Unload Me
End Sub
 
Private Sub DisplayReceipt()
    Dim curSubTotal As Currency
    Dim curTax As Currency
    Dim intAddOnCount As Integer
    Dim i As Integer
    Dim intSelectedProduct As Integer
 
    intSelectedProduct = cboMainCourse.ListIndex
 
    For i = chkAddOn.LBound To chkAddOn.UBound
        If chkAddOn(i).Value = vbChecked Then
            intAddOnCount = intAddOnCount + 1
        End If
    Next
 
    curSubTotal = CCur(Products(cboMainCourse.ListIndex, MAIN_PRICE_POS) _
     + intAddOnCount * Products(intSelectedProduct, ADDON_PRICE_POS))
 
    curTax = curSubTotal * TAX_RATE
 
    lblSubtotal.Caption = CStr(FormatCurrency(curSubTotal, 2))
    lblTax.Caption = CStr(FormatCurrency(curTax, 2))
    lblTotal.Caption = CStr(FormatCurrency(curSubTotal + curTax, 2))
End Sub