Ну блин, что теперь делать ? Інтернет експловер глючит ( - VB

Формулировка задачи:

Раньше та ж самая ошибка была как только я открывал любую страницу. Механизм был такой форма1 открывает форму2, на которой webbrowser1. При открытии какого либо URL выскакивала такое же сообщение. Я методом тыка не понимая прикола создал webbrowser1 на форме1. URL открывает теперь таймер. Все работает почемуто на той форме. Хм ?? Ладно. Разширяем возможсти. Доделываю поиск, начинаю его усовершенствовать. И тут опьять неизвесное чудо... Я в шоке. Я бы с удовольствием попользовался чем либо другим, да вот только авторизацию не знаю как проскочить, тому и пользуюсь webbrowser1. Есть идеи ?

с уважением Андрей

Решение задачи: «Ну блин, что теперь делать ? Інтернет експловер глючит (»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'Бравзер</font>
<font color="blue">Public</font> IE(<font color="darkblue"><b>9</b></font>) <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Public</font> PIG_IEViknoStatus(<font color="darkblue"><b>9</b></font>) <font color="blue">As</font> <font color="blue">Boolean</font> <font color="00AA00">' Статус. Открытое окно</font>
<font color="00AA00">'Создание окна IE</font>
<font color="blue">Public</font> <font color="blue">Sub</font> PIG_VklIE(Nomr <font color="blue">As</font> <font color="blue">Long</font>, Vsbl <font color="blue">As</font> <font color="blue">Boolean</font>)
    <font color="blue">Set</font> IE(Nomr) = CreateObject(<font color="teal">"InternetExplorer.Application"</font>)
    IE(Nomr).Visible = Vsbl
    PIG_IEViknoStatus(Nomr) = True
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="00AA00">'Переход по URL</font>
<font color="blue">Public</font> <font color="blue">Sub</font> PIG_IE_Navigate(Nomr <font color="blue">As</font> <font color="blue">Long</font>, Adres <font color="blue">As</font> <font color="blue">String</font>)
    <font color="00AA00">'If PIG_IEViknoStatus(Nomr) = False Then Exit Sub</font>
    IE(Nomr).navigate Adres
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="00AA00">'Опрос статуса</font>
<font color="blue">Public</font> <font color="blue">Function</font> PIG_IE_readyState(Nomr <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
  PIG_IE_readyState = IE(Nomr).readyState
<font color="blue">End</font> <font color="blue">Function</font>
<font color="00AA00">'Чтение данных</font>
<font color="blue">Public</font> <font color="blue">Function</font> PIG_IE_innerHTML(Nomr <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">String</font>
  PIG_IE_innerHTML = IE(Nomr).Document.documentElement.innerHTML
<font color="blue">End</font> <font color="blue">Function</font>

                        