Learning help please

[Half]

    Private Sub chkSprinkles_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSprinkles.CheckedChanged
        If chkSprinkles.Checked Then

            totalToppings += 1

            toppingPrice.Text = totalToppings.ToString

        End If
    End Sub