WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser2.ScriptErrorsSuppressed = True
        WebBrowser2.Navigate("http://thebotnet.com")
        Delay(5)
        Dim textthinge As HtmlElement = WebBrowser2.Document.GetElementById("label")
        textthinge.SetAttribute("value", TextBox1.Text)
        Dim textthinge2 As HtmlElement = WebBrowser2.Document.GetElementById("navbar_password")
        textthinge2.SetAttribute("value", TextBox2.Text)
        Dim g As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("input")
        Dim ElCollection As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("input")
        For Each Element As HtmlElement In ElCollection
            If Element.GetAttribute("title").Contains("Enter your username and password in the boxes provided to login, or click the 'register' button to create a profile for yourself.") Then
                Element.InvokeMember("click")
            End If
        Next
        Delay(10)
        Dim h As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("a")
        For Each element As HtmlElement In h
            If element.GetAttribute("href") = "http://thebotnet.com/private.php" Then
                    Button1.Enabled = True
                    Button2.Enabled = False
            End If
        Next