Цвета = Новый СписокЗначений;
Цвета.Добавить("Красный");
Цвета.Добавить("Зеленый");
Цвета.Добавить("Синий");

//Устанавливаем отметку у всех элементов
Цвета.ЗаполнитьПометки(Истина);

Оповещение = Новый ОписаниеОповещения(
    "ПослеВыбора", ЭтотОбъект);

Цвета.ПоказатьОтметкуЭлементов(
    Оповещение, "Выберите цвета");

&НаКлиенте
Процедура ПослеВыбора(Выбор, Параметры) Экспорт
    Если Выбор = Неопределено Тогда
        Возврат;
    КонецЕсли;

    Для Каждого Цвет Из Выбор Цикл
        Если Цвет.Пометка Тогда
            Сообщить(Цвет.Значение);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры