I need the coding for the picture on the left pizza cost calculator in the format of the picture on the right

Analyze Tools Extensions Window Help Search (Ctrl+Q Pizza Cost Calculator X Start - Q Q - b 3 File Decking.vb [Design] Pizza Cost Calculator -btnCalculate Class frmDecking vate Sub btnCalculate_Click(sender As Object, e As Ev Select Type of Pizza 'Declare variables Dim decFootage As Decimal Dim decCostPerSquareFoot As Decimal Dim decCostEstimate As Decimal Dim decLumberCost As Decimal = 2. 350 Dim decRedwoodCost As Decimal = 7.750 Dim decComposite As Decimal = 8. 50 'Did user enter a numeric value Thin Crust Thick Crust If IsNumeric(txtFootage. Text) Then decFootage = Convert. ToDecimal (txtFootage. Text) Select Toppings Did user enter a positive value If decFootage > 0 Then 'Determine the cost per square foot + $1.99 per Topping If radLumber . Checked Then decCostPerSquareFoot = decLumberCost Pepperoni Mushroom Extra Cheese ElseIf radRedwood. Checked Then decCostPerSquareFoot = decRedwoodCost Sausage Onion Black Olive Elself radComposite. Checked Then Bacon Green Pepper Pineapple decCostPerSquareFoot = decComposite End If Spinach Calculate and Display Cost Estimate decCostEstimate = decFootage * decCostPerSqu 1blCostEstimate. Text = decCostEstimate. ToSt Total Cost: $0.00 issues found Calculate Clear Exit