If icLineAll.SelectedItem.Index =  4  Then Exit Sub

Dim icAllCl As Boolean ' если толщина линии меняется через все линии, то истина

Private Sub icLineAll_Click()
    Dim i As Integer
    If icLineAll.SelectedItem.Index =  4  Then Exit Sub
     For i =  1  To LA
        If Channel( 1 , i) Then Thin( 1 , i) = icLineAll.SelectedItem.Index
        If Channel( 2 , i) Then Thin( 2 , i) = icLineAll.SelectedItem.Index
    Next
    icLine( 1 ).ComboItems(Thin( 1 , mpiBDL.Value +  1 )).Selected = True
    icAllCl = True
    icLine1_Click
    icLine( 2 ).ComboItems(Thin( 2 , mpiBDL.Value +  1 )).Selected = True
    icAllCl = True
    icLine2_Click
End Sub

Private Sub icLine1_Click()
    ChangeLineThicknessingEx  1 , mpiBDL.Value +  1 
End Sub

Private Sub icLine2_Click()
    ChangeLineThicknessingEx  2 , mpiBDL.Value +  1 
End Sub

Sub ChangeLineThicknessingEx(Ch As Integer, p As Integer) ' меняю толщину линии в примере
'        iExample(Ch).Picture = ilLine(Ch, icLine(Ch).SelectedItem.Index).ListImages(p).Picture
'        Thin(Ch, p) = icLine(Ch).SelectedItem.Index
        If icAllCl Then
            icAllCl = False
            Exit Sub
        End If
        icLineAll.ComboItems( 4 ).Selected = True
End Sub