vb的复选框 选择题程序 怎么设计下面的程序

Private Sub Command1_Click()

If Check1.Value = 1 Then Text1 = 5
If Check6.Value = 1 Then Text2 = 5
If Check11.Value = 1 Then Text3 = 5
If Check15.Value = 1 Then Text5 = 5
If Check18.Value = 1 Then Text6 = 5
If Check23.Value = 1 Then Text7 = 5
If Check25.Value = 1 Then Text8 = 5
If Check30.Value = 1 Then Text9 = 5
If Check35.Value = 1 Then Text10 = 5
If Check38.Value = 1 Then Text11 = 5
Text4 = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9) + Val(Text10) + Val(Text11)

End Sub

Private Sub Command2_Click()
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0

Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
Check10.Value = 0
Check11.Value = 0
Check12.Value = 0

Check13.Value = 0
Check14.Value = 0
Check15.Value = 0

VB复选框的问题。。 vb复选框的问题 VB用复选框怎么实现多条件的查询 vb中复选框的问题 VB如何用复选框 vb的listbox的复选问题 VB中如何使用复选框 求助！！ vb复选框和单选框问题 VB如果获取网页中被选中的复选框中的value的值呀?? excel中怎么计算选中的复选框的个数