For i As Integer = 0 To Me.Controls.Count - 1
            Dim c As Control = Me.Controls(i)
            If TypeOf c Is CheckBox Then
                Dim cb As CheckBox = CType(c, CheckBox)
                MsgBox(cb.Name & " checked=" & cb.Checked.ToString())
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist