Private Sub knLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles knLogin.Click
    wb.Navigate("http:// site.com/user/items", False)

    While wb.ReadyState <> WebBrowserReadyState.Complete
        Application.DoEvents()
    End While

    wb.Document.GetElementById("email").SetAttribute("value", "email@email.com")
    wb.Document.GetElementById("password").SetAttribute("value", "mypassword")
    wb.Document.Forms("loginform").InvokeMember("submit")
    Timer7.Start()
End Sub

Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
    Dim allelements As HtmlElementCollection = wb.Document.All
    For Each webpageelement As HtmlElement In allelements
        If webpageelement.InnerText = "update" Then

            webpageelement.InvokeMember("click")

        Else
            Label12.Text = "no updates"
        End If
    Next


    Timer7.Stop() 'Stops the timer
    wb.Navigate("http:// site.com/user/logout", False)

End Sub