VB技巧问答10000例,是一个教程

				最好把几个控件组成一个控件数组(QA001403 “如何创建控件数组”)，这样比较好处理。下面是例子： 
				    Private Sub Check1_Click(Index As Integer) 
				     If Check1(Index).Value = Checked Then 
				     For i = 0 To Check1.Count - 1 
				     If i  Index Then Check1(i) = Unchecked 
				     Next 
				     End If 
				    End Sub