Imports System.Net.Mail
 
Public Class Form1
 
Private Sub button_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles button.Click
 
Dim smtpserver As New SmtpClient()
Dim mail As New MailMessage()
smtpserver.Credentials = New Net.NetworkCredential("...", "...")
smtpserver.Port = 587
smtpserver.Host = "smtp.gmail.com"
smtpserver.EnableSsl = True
mail.From = New MailAddress("...")
mail.Subject = textbox2.Text
mail.To.Add("till.müller@gmail.com")
mail.Body = testbox3.Text
smtpserver.Send(mail)
 
MsgBox("Erfolgreich Versand")
 
End Sub
End Class