Оценка состояния продолжается, когда условие не выполняется

В контроле WebBrowser в форме Visual Studio, этот код работает отлично:Оценка состояния продолжается, когда условие не выполняется

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 

    WebBrowser1.DocumentText = 
    "<html><body>Search in Google:<br/>" & 
    "<form method='get' action='http://www.google.com/search'>" & 
    "<input type='text' name='as_q'/><br/>" & 
    "<input type='submit' value='Search'/>" & 
    "</form></body></html>" 

End Sub

Когда я добавить следующий код Проверки формы HTML через свойство Document WebBrowser получить этот сообщение об ошибке: Ссылка на объект не установлена в экземпляр объекта.

Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating 

    Dim document = WebBrowser1.Document 
    If document IsNot Nothing And 
    document.All("as_q") IsNot Nothing And 
    String.IsNullOrEmpty(
    document.All("as_q").GetAttribute("value")) Then 
     e.Cancel = True 
     MsgBox("Please enter a search term.") 
    End If 

End Sub

источник

2016-09-29 Enrique Bello

Спасибо Заггер. Этот и другие примеры работают !!!!. Извините .. Загглер. –