Dim Submit As HtmlElement = Nothing
        For Each Elem As HtmlElement In WebBrowser1.Document.All
            If Elem.GetAttribute("Value") = "Log in" Then
                Submit = Elem
            End If
        Next
        Submit.InvokeMember("submit")

        If Submit.InvokeMember("submit") = True Then
            WebBrowser1.Document.Body.OuterText.Contains("vBulletin Message")
            MsgBox("Invalid Username or Password.", MsgBoxStyle.Information, "Error Logging In!")
        Else
            MsgBox("Login was successful!", MsgBoxStyle.Information, "Success!")
        End If