Private Sub AddItem(Ite As String) Dim chB As CheckBox chB = New CheckBox(scV) As "Nyomi" chB.Text = Ite chB.Tag = Ite End I have an array of checkboxes created with this procedure. I would like to select / unselect all of them at once. How can I reach them? Csaba