•Private
Sub Tally(...) Handles chkDrugs.CheckedChanged, chkDental.CheckedChanged,
chkVision.CheckedChanged, chkMedical.CheckChanged
• Dim sum As Double = 0
• If chkDrugs.Checked Then
• sum += 12.51
• End If
• If chkDental.Checked Then
• sum += 9.68
• End If
• If chkVision.Checked Then
• sum += 1.5
• End If
• If chkMedical.Checked Then
• sum += 25.25
• End If
• txtTotal.Text = FormatCurrency(sum)
•End
Sub