チェックボックスをオンにしたままで値を追加する方法は？

Question

私はここで起こっているかわからない合計は、まだ10されて終わるすべてのチェックボックスをチェックし

Dim top As Integer 
    Select Case top 
     Case CheckBox1.Checked 
      top = +10 
     Case CheckBox2.Checked 
      top = +10 
     Case CheckBox3.Checked 
      top = +10 
     Case CheckBox4.Checked 
      top = +10 
     Case CheckBox5.Checked 
      top = +10 
     Case CheckBox6.Checked 
      top = +10 
    End Select 
    TextBox2.Text = top 

Answer 1

を助けてくださいselect case文はif...else if文のようなものです。 これは、いずれかのケースが真であれば、それが真であっても実行されないことを意味します。これは賢明な選択 `Case`ではないようです

If CheckBox1.Checked Then 
    top += 10 
End If 
If CheckBox2.Checked Then 
    top += 10 
End If 
If CheckBox3.Checked Then 
    top += 10 
End If 
....