Vb.net VB Check.changed在窗体加载时运行并添加到我的标签

我正在用VB编程。我需要25被添加到一个变量时，复选框被选中，当它得到取消选中返回到它的原始价格。它正在工作，尽管每当我的表单加载且复选框未选中时，它将减去25。 这是我的密码：

如果选中复选框1.1，则

 price += 25

否则

---

如果

使用事件：

复选框1\u checked changed

而不是将代码放入表单的事件

加载

：

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked Then
        price += 25
    Else
        price -= 25
    End If
End Sub

---

欢迎来到堆栈溢出！请花点时间仔细回顾一下：

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked Then
        price += 25
    Else
        price -= 25
    End If
End Sub