Web site login control

[TheWayEnd]

Hi Everyone

I want to pro about web site login control.

for example

Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
		For Each webpageelement As HtmlElement In allelements
			Dim ba As HtmlElement = WebBrowser1.Document.GetElementById("username")
			Dim sa As HtmlElement = WebBrowser1.Document.GetElementById("password")
			ba.SetAttribute("value", TextBox1.Text)
			sa.SetAttribute("value", TextBox2.Text)
			If webpageelement.GetAttribute("value") = "Login" Then
				webpageelement.InvokeMember("click")
			End If
		Next

this code is worked.But if username and password true then listbox add or false listbox add "False Login"

My first open url with webbrowser then

click username password.This here no problem.But click test then richtexbox.appendtext(webbrowser1.documenttext)...here false give me.

how am I worked this code.

control then answer me this pro

please help me...