菜鸟问题，关于check（我穷啦，请原谅分少）

不需要用赋值语句一个个赋值，你只要使用控件数组就可以解决了。方法是将第一个checkbox控件的index属性值赋值为0，然后重复拷贝该控件，则vb会自动将后续的checkbox控件的index属性值加一的.以后你就可以在Check1_Click事件中使用check(index)来辨别用户点击的checkbox了。关于你所提出的需要统计一共点击了多少check框，方法如下：（需要有多个checkbox控件，并按以上方法形成控件数组）
Option Explicit
Dim i
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
i = i + 1
Else
i = i - 1
End If
End Sub明白了吗？