Aplicación para Enviar E-Mails desde VB.NET

Bueno pues eso, como hacer una App para enviar correos Vía el Servidor SMTP de GMAIL si todavía no tienen un cuenta Gmail créense una aquí.

Ahora voy con el código :P

Primero importan esto

Imports System.Net.Mail

Después en el Botón o en lo que quieran para enviar el Correo ponen este otro

   Dim Mail As New MailMessage
        Mail.Subject = "test email"
        Mail.To.Add(TextBox2.Text)
        Mail.From = New MailAddress(TextBox2.Text)
        Mail.Body = TextBox1.Text

        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
        SMTP.Port = "587"
        SMTP.Send(Mail)

Deben Crear 3 TextBox también.