Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

        For Each curElement As HtmlElement In theElementCollection

            Dim controlName As String = curElement.GetAttribute("name").ToString
            Dim username As String = TextBox1.Text
            Dim pass As String = TextBox2.Text
            If controlName = "username" Then
                curElement.GetAttribute("Value")
                curElement.SetAttribute("Value", username)
            ElseIf controlName = "password" Then
                curElement.SetAttribute("Value", pass)
            ElseIf controlName = "Submit" Then
                curElement.InvokeMember("click")

            End If
        Next