最好把幾個控件組成一個控件數組(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>