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