Dim fIgEnd As Integer… ПУСТЬ НЕ ОБИЖАЮТСЯ ДЕТИ НА БЕЗОБРАЗИЯ ГРЕМЛИНОВ. НАЗНАЧАЕМ СЛЕДУЮЩУЮ ПРОЦЕДУРУ ДЛЯ АКТИВАЦИИ НЕОБХОДИМОГО СОБЫТИЯ. ПИШЕМ В РЕДАКТОРЕ КОДА ЗАКЛИНАНИЕН – Private Sub Form Load(). ИЩЕМ, КУДА СПРЯТАЛСЯ НОЛЬ И НАХОДИМ ЕГО В МИРЕ ВСЕХ МИРОВ, В ГИПЕРУНИВЕРСАЛЬНОМ ПРОСТРАНСТВЕ fIgEnd. ТОГДА ВСЕ ПЕЙЗАЖИ И КАРТИНЫ НАШЕГО РЕАЛЬНОГО МИРА ПОЛУЧАТ ПЕРЕМЕННУЮ КРАСНОГО ЦВЕТА imgStatus.Picture = picRed.Picture. ОБЯЗАТЕЛЬНО НАДО ДОБАВИТЬ, ЧТО ТЕПЕРЬ ВРЕМЕНИ И ПРОСТРАНСТВА НЕТ. ОСТАЛОСЬ ОДНО ИЗМЕРЕНИЕ. ЕГО НАИМЕНОВАНИЕ – ИЗМЕРЕНИЕ. ОНО В МОЕЙ ГОЛОВЕ. В ЭТОМ СЛУЧАЕ КОД СТАНЕТ FormForGraphics-Caption = "ИЗМЕРЕНИЕ". ОБЪЯВЛЯЕМ ПОКА КОНЕЦ. КОНЕЦ ПРОЦЕДУРЫ End Sub.
…ВСЕМ СЛЕДУЮЩИМ МИРАМ И ВИДЕНИЯМ ПРИДЁТСЯ ПОСТОРОНИТЬСЯ.
ВСЯКАЯ МЕЧТА ПУСТЬ ОБРАТИТСЯ В ПРАХ. НО ПРИДЁТ НОВАЯ МЕЧТА И ЗАЙМЁТ СВОЁ МЕСТО В ОСМЫСЛЕНИИ ВСЕГО ПРОИСХОДЯЩЕГО. НЕТ ТАКИХ ДОРОГ, КОИХ НИКТО ЕЩЁ НЕ ВИДЕЛ… ОБЪЯВЛЯЕМ НОВУЮ ПРОЦЕДУРУ Private Sub cbControl_Click. И ТОТ ЧАС ИЛЛЮЗИИ ВОЗВРАЩАЮТСЯ В ОДНО УЮТНОЕ МЕСТЕЧКО В ЧЕЛОВЕЧЕСКОМ МОЗГУ. ДОРЫШ ОКОНЧАТЕЛЬНО СОШЁЛ С УМА. ОДНА ИЗИЛЛЮЗИЙ НАХОДИТСЯ В МОЁМ ХОЛОДИЛЬНИКЕ. ДОСТАЁМ ЕЁ ОТТУДА И ОБЪЯВЛЯЕМ, ЧТО ЦВЕТ ПЕРЕМЕННОЙ КРАСНЫЙ If imgStatus.Picture = picRed.Picture Then. ПОТОМ ЦВЕТ ДОЛЖЕН СТАТЬ ЖЁЛТЫЙ imgStatus.Picture = picYellow.Picture. ПОТОМ ЖЁЛТЫЙ ЦВЕТ ДОЛЖЕН ПОДГОТОВИТЬСЯ К ИЗМЕНЕНИЮ Elself imgStatus.Picture = picYellow.Picture Then. ПОТОМ ЦВЕТ СТАНОВИТСЯ ЗЕЛЁНЫМ imgStatus.Picture = picGreen.Picture.
…НА КОРАБЛЕ ПИРАТЫ ПРАЗДНУЮТ ПОБЕДУ. ОНИ ПОБЕДИЛИ СМЕРТЬ И ПЬЮТ ДРЯННОЙ РОМ ВО СЛАВУ БЕССМЕРТНОЙ ЛЮБВИ. ФЛАГ ИХ КОРАБЛЯ ЗЕЛЁНОГО ЦВЕТА. ГДЕ ПРЯЧЕТСЯ САМАЯ ВЕЛИКАЯ ЛЮБОВЬ НА СВЕТЕ? ОНА ПРЯЧЕТСЯ СРЕДИ ЛИСТВЫ ВЕЛИКОЙ ЗЕЛЁНОЙ ВЕСНЫ. ЛЮБОВЬ СТАНОВИТСЯ ГЛАВНОЙ ПЕРЕМЕННОЙ МОЕГО СЕРДЦА.
ГЛАВА ВТОРАЯ. РАКЕТА.
«Забравшись под землю, ты точно знаешь, где находишься. Ничего с тобой не случится, никто тебя здесь не достанет. Ты полностью хозяин сам себе, не надо никого ни о чем спрашивать, не надо ломать голову над тем, кто что подумает. Там, наверху, все идет своим чередом – и пусть, тебе-то что до этого. А если захочешь – вылезай на поверхность, и к твоим услугам все на свете…»
«Ветер в ивах» Кеннет Грэм
СКОЛЬКО МОЖНО УЩЁ ЖДАТЬ? ВСЕ СУДЬБЫ МИРА В КАКОЙ-ТО КОЛОДЕ, А ГДЕ МОЯ КАРТА? МОИМ НЕПОНИМАНИЕМ ВСЕГО СУЩЕГО НА ЗЕМЛЕ ЯВЛЯЕТСЯ МОЁ ОСОЗНАНИЕ ВИДЕНИЙ СУДЕБ ВСЕГО ПРОСТРАНСТВА.