最好把几个控件组成一个控件数组(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 
<END>