Private Sub TasteAll_Click() 'Процедура выделения всех строк списка Dim IntCnt As Long For IntCnt = 0 To Me!ListeClient.ListCount If Me!ListeClient.Selected(IntCnt) = False Then Me!ListeClient.Selected(IntCnt) = True End If Next End Sub Private Sub TasteAufheben_Click() 'Процедура снятия выделения со всех строк списка Dim varITm As Variant For Each varITm In Me!ListeClient.ItemsSelected Me!ListeClient.Selected(varITm) = False Next varITm End Sub |