Dim saysay As Integer = 0
İlk saysay değişkenini "0"a eşitleyelim.
Public Class FormX'in tanıtıldığı yerin altına yazacaksınız.
saysay = saysay + 1
Bu kod ile "saysay" değişkeninin sayısını her seferinde 1 arttırıyoruz.
If CheckBox1.CheckState = CheckState.Checked Then
saysay = saysay + 2
Else
saysay = saysay + 1
End If
Label1.Text = saysay
Eğer CheckBox1 işaretli ise, değişken ikişer ikişer artacak. İşaretli değilse 1 artacak.
Daha sonra değer Label1'e aktarılacak.