Linq select all item checkboxlist VB.Net

Il frammento di codice qui di seguito, illustra una tecnica di come selezionare tutti gli elementi di un controllo checkboxlist tramite il linguaggio di programmazione VB.Net e Linq.

Dim elementi = From i In CheckBoxList1.Items _

Where CheckBoxList1.Items.Contains(i) _

Select i

For Each elemento As ListItem In elementi

elemento.Selected = True

Next