Private Sub GolfCheckBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GolfCheckBox.Click
        If Me.GolfCheckBox.Checked = True Then
            mintAdditional = 25
        End If
        Me.AdditionalLabel.Text = Format(mintAdditional, "currency")
End Sub
 
Private Sub RacquetballCheckBox_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RacquetballCheckBox.Click
    If Me.RacquetballCheckBox.Checked = True Then
        mintAdditional = 20
    End If
    Me.AdditionalLabel.Text = Format(mintAdditional, "currency")
End Sub
 
Private Sub TennisCheckBox_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TennisCheckBox.Click
    If Me.TennisCheckBox.Checked = True Then
        mintAdditional = 30
    End If
    Me.AdditionalLabel.Text = Format(mintAdditional, "currency")
End Sub
 
Private Sub CalcButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CalcButton.Click
    Dim intBasic As Integer
    Dim sngTotal As Single
    intBasic = Val(Me.BasicTextBox.Text)
    Select Case True
        Case Me.TennisCheckBox.Checked = True
            sngTotal = intBasic + mintAdditional
        Case Me.RacquetballCheckBox.Checked = True
            sngTotal = intBasic + mintAdditional
        Case Me.GolfCheckBox.Checked = True
            sngTotal = intBasic + mintAdditional
    End Select
    Me.TotalLabel.Text = Format(sngTotal, "currency")
    Me.AdditionalLabel.Text = Format(mintAdditional, "currency")
End Sub

 
Public Class Learning2
 
    Dim total As Double = 0
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            total = total + 30
        ElseIf CheckBox1.Checked = False And total <> 0 Then
            total = total - 30
        End If
        Label1.Text = FormatCurrency(total)
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            total = total + 15
        ElseIf CheckBox2.Checked = False And total <> 0 Then
            total = total - 15
        End If
        Label1.Text = FormatCurrency(total)
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            total = total + 25
        ElseIf CheckBox3.Checked = False And total <> 0 Then
            total = total - 25
        End If
        Label1.Text = FormatCurrency(total)
    End Sub
 
    Private Sub Learning2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = FormatCurrency(total)
    End Sub
End Class