Erro "Is not declared"

Question

Pessoal, boa tarde, catei esse código http://stackoverflow.com/questions/18769706/web-browser-events

Para controlar o PageLoad.

Porém aqui ficou o seguinte erro:

Name 'pageready' is not declared, acredito que esteja faltando alguma coisa:

Public Class Form1

Private Property pageready As Boolean = False

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("https://wwww.com/Login")
        WaitForPageLoad()
        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
        WaitForPageLoad()

    End Sub

#Region "Page Loading Functions"

    Private Sub WaitForPageLoad()

        AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)

        While Not pageready
            Application.DoEvents()
        End While

        pageready = False

    End Sub

    Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)

        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            pageready = True
            RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        End If

    End Sub

#End Region

End Class

Answer 1

Altera esse: 

Private Property pageready As Boolean = False

Por esse e teste: 

Public Property pageready As Boolean = False

Abraço.

Answer 2

Fernando, continua o mesmo erro.

Answer 3

Public pageready As Boolean = False

O código que você pegou já estava apresentando esse erro e não foi solucionado no steack. 

Veja se desse jeito vai funcionar, no link tem mais dicas.

http://support.microsoft.com/kb/308230/pt-br

Answer 4

Pô, isso mesmo, vlw.

Fica ai corrigido para o pessoal:

Public Class Form1
    Public pageready As Boolean = False
    Private Sub Button1_Click_1(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("https://xxxxxxx.com/Login")
        WaitForPageLoad()
        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
        WaitForPageLoad()
    End Sub
#Region "Page Loading Functions"
    Private Sub WaitForPageLoad()
        AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        While Not pageready
            Application.DoEvents()
        End While
        pageready = False
    End Sub
    Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            pageready = True
            RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        End If
    End Sub
#End Region
End Class

Answer 5

Show.