"Object variable or With block variable not set" в

[НиколайП]

ребята помогите решить проблемму.
на форме RichTextBox1.Text, Text2.Text, WebBrowser1. При открытии формы текст из Text2.Text (в виде html кода) должен отобразиться в WebBrowser1.
код:

Private Sub Form_Load()
WebBrowser1.Navigate2 "about:Blank"
info
End Sub

Public Sub info()
Text2.Text = RichTextBox1.Text
WebBrowser1.Document.body.innerHTML = Text2
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Stop
End Sub

при открытии формы появляется ошибка "Object variable or With block variable not set" ,в окне сообщения нажимаю отладку, перехожу в редактор и сразу же жму повторно "continue" WebBrowser1 нормально открывает нужный текст...
подскажите из за чего возникает ошибка и как с этим бороться

[vvs_adm]

Нужно дождаться окончания WebBrowser1.Navigate2 "about:Blank". Например так

Код: Выделить всё

WebBrowser1.Navigate2 "about:Blank"
Do
    DoEvents
Loop While WebBrowser1.ReadyState<>READYSTATE_COMPLETE

[НиколайП]

vvs_adm
Огромное СПАСИБО !
у меня программа из двух частей, сервер - ищет и скачивает нужную информацию из инета с сохранением в базу данных и вторая - клиент,которая выводит всю информацию из БД на локальной машине.На "сервере" такая же функция срабатывала без проблемм а в "клиенте" возникала эта ошибка ...
Ещё раз огромное СПАСИБО за помощь !