Scratch

Imports System.Net.Mail
Public Class MailSender
    Dim mail As New MailMessage
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stmpclient As New SmtpClient
        stmpclient.Credentials = New Net.NetworkCredential(My.Settings.Username, My.Settings.Password)
        stmpclient.Port = 587
        stmpclient.Host = "stmp.gmail.com"
        stmpclient.EnableSsl = True
        mail = New MailMessage
        mail.From = New MailAddress(TextBox2.Text)
        mail.To.Add(New MailAddress(TextBox1.Text))
        mail.Subject = TextBox3.Text
        mail.Body = TextBox4.Text
        stmpclient.Send(mail)
    End Sub
End Class