Dim ServiceChecked As Boolean = False Dim ListServiceCode As New ArrayList Dim i As Long For i = 0 To DataListService.Items.Count - 1 Dim CurrentCheckBox As CheckBox CurrentCheckBox = DataListService.Items(i).FindControl("CheckBox") If CurrentCheckBox.Checked.ToString() Then ServiceChecked = True ListServiceCode.Add(Replace("S" & ArrayListServices(i).Code & "P" & Nb_Piece.SelectedIndex + 1 & "T" & TypeBien.SelectedIndex, " ", "")) End If Next