Dim result As List(Of Control) = ControlsList.FindAll(Function(c As _
        Object) TypeOf c Is CheckBox AndAlso c.Checked)

___________________________________________________________________________________________
Jeder, der behauptet das gesamte .NET-Framework zu kennen ist entweder verrückt oder Sheldon Cooper

Beitrag wurde zuletzt am 25.08.15 um 14:20:14 editiert.

Private Sub test()
 
   Dim cl As New List(Of Control)
 
   cl.Add(New TextBox)
   cl.Add(New CheckBox With {.Text = "A", .Checked = True})
   cl.Add(New CheckBox With {.Text = "B", .Checked = False})
   cl.Add(New CheckBox With {.Text = "C", .Checked = True})
 
   Dim checked As List(Of Control) = _
      cl.FindAll(Function(ctl As Control) _
      TypeOf ctl Is CheckBox AndAlso DirectCast(ctl, CheckBox).Checked)
 
End Sub

___________________________________________________________________________________________
Jeder, der behauptet das gesamte .NET-Framework zu kennen ist entweder verrückt oder Sheldon Cooper