Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Log In" Then
            WebBrowser1.Document.GetElementById("navbar_username").SetAttribute("value", (TextBox1.Text))
            WebBrowser1.Document.GetElementById("navbar_password").SetAttribute("value", (TextBox2.Text))
            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

            For Each webpageelement As HtmlElement In allelements

                If webpageelement.GetAttribute("tabindex") = "104" Then
                    webpageelement.InvokeMember("click")
                End If
            Next
        Else

            Dim page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
            For Each log As HtmlElement In page
                If log.GetAttribute("value") = "log_out" Then
                    log.InvokeMember("click")
                End If
            Next

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("vbshout_pro_shoutbox_editor").SetAttribute("value", (TextBox3.Text))

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            If webpageelement.GetAttribute("value") = "Shout" Then

                webpageelement.InvokeMember("click")
            End If
        Next
    End Sub