Поэтому я попытался создать контрольный список с точками в vb.net

Question

Я все еще пытаюсь создать контрольный список с точками в качестве справки, если вы не уверены, что у вас есть COVID-19. ех. «если у вас есть 1 балл, значит, вы все в порядке»

Сейчас все флажки работают, кроме одного, который является вторым флажком

    Public Class Form1

    Dim pts As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "You have " & pts
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If Me.CheckBox1.Checked = True Then
            pts = pts + 1
        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If Me.CheckBox2.Checked = True Then
            pts = pts + 1
        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If Me.CheckBox1.Checked = True Then
            pts = pts + 98

        End If

    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        CheckBox1.CheckState = 0
        CheckBox2.CheckState = 0
        CheckBox3.CheckState = 0
        Label1.Text = ""
        pts = 0

    End Sub
 End Class

Я не знаю, что еще я могу сделать действительно

Answer 1

Суммарные значения просто добавляются, но не вычитаются при отмене проверки. Просто используйте для этого оператор Else. Посмотрите на следующий пример:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    If Me.CheckBox1.Checked = True Then
        pts = pts + 1
    Else
        pts = pts - 1
    End If

End Sub