如何在这种情况下实现关于CheckBox的全选功能？

Question

    在GroupBox1中放一个名字为ALL的CheckBox，用于“全选”；再在GroupBox1放置若干个CheckBox,想实现“全选”时选中其余的CheckBox，用下面方法中将怎样继续呢？
    If all.Checked = True Then
    Dim i As Integer
        For i = 0 To GroupBox1.Controls.Count - 1
           If GroupBox1.Controls(i).GetType.ToString = "system.Windows.Forms.CheckBox" Then
              
           End If
        Next
   End If
   
谢谢

Answer 1

这样不行么？
GroupBox1.Controls(i).Checked = True

Answer 2

若点击check1，则数组check2都选中Private Sub Check1_Click()
If Check1.Value = 1 Then
    Dim i As Integer
        For i = 0 To Check2.Count - 1
            Check2(i).Value = 1
        Next
   End If
End Sub

Answer 3

.NET启动好慢……
这样写～    Private Sub All_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles All.CheckedChanged
        Dim i As Integer
        Dim tObj As CheckBox
        If All.Checked = True Then
            For Each tObj In GroupBox1.Controls
                tObj.Checked = True
            Next
        End If
    End Sub

Answer 4

另外～觉得这样比较好用～    Private Sub All_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles All.CheckedChanged
        Dim tObj As CheckBox        For Each tObj In GroupBox1.Controls
            tObj.Checked = All.Checked
        Next
    End Sub

Answer 5

为什么不用数组控件数组？Private Sub Check1_Click(Index As Integer)
    If Check1(0) = True Then
        For i = 1 To Check1.Count - 1
           Check1(i) = True
        Next i
    End If
End Sub

Answer 6

晕，没有注意是.net的代码
难怪觉得怪怪的。