Private Sub AnyChange(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles radMedium.Click, radSmall.Click, radLarge.Click, radThick.Click, _
  radThin.Click, chkMushroom.Click, chkPepperoni.Click
  Calculate()
End Sub 'AnyChange

Private Sub Calculate()
  Dim Cost As Double
  If Me.radSmall.Checked Then Cost = 8
  If Me.radMedium.Checked Then Cost = 10
  If Me.radLarge.Checked Then Cost = 12
  If Me.radThick.Checked Then Cost = Cost + 0.5
  If Me.chkAnchovy.Checked Then Cost = Cost + 1
  If Me.chkMushroom.Checked Then Cost = Cost + 1
  If Me.chkPepperoni.Checked Then Cost = Cost + 1
  Me.lblCost.Text = Format(Cost, "$0.00")
End Sub 'Calculate