Процедура ПослеОткрытия()
     
      АктивИкс = СоздатьОбъект("АктивИкс");
    АктивИкс.УстановитьАтрибут(Форма, "Броузер");
    АктивИкс.СоздатьЭУ("Shell.Explorer.2");
      АктивИкс.ОбработкаСобытий = 1;
    АктивИкс.УстановитьФокус();
      Карта = АктивИкс.Объект;
      //Сообщить(Карта);
       
      //текст управляющей страницы извлекается из таблицы
      Таб = СоздатьОбъект("Таблица");
      Таб.ИсходнаяТаблица("ХТМЛ_Страница");
      Таб.ВывестиСекцию("Строка");
      ТекстХТМЛ = Таб.Область(1,1).Текст;
     
      //загрузка карты
      Карта.navigate("about:blank");
      Карта.Document.open();
      Карта.Document.write(ТекстХТМЛ);

        Карта.Refresh2();  //просто рефреш не сработал, метод взял из описания MSDN
      //Карта.Document.close()      

КонецПроцедуры


Процедура Броузер_OnClick()

     Сообщить("Клик");
     
КонецПроцедуры