Private Sub send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim mail As New MailMessage() // Tady to hlavne nech prazdny
mail.From = New MailAddress(usertxt.Text)
mail.To.Add ("xxxx@xxx.cz")
mail.Subject = (subjecttxt.Text) // Misto subject pouzij co ches, nebo co jsi pouzli za  hlavicku zpravy
mail.Body = (bodytxt.Text)

Dim smtsetting As New SmtpClient("smtp.gmail.com")
smtpsetting.Port = 587
smtpsetting.Credentials = New System.Net.NetworkCredential(usertxt.Text, passtxt.Text)
smtpsetting.EnableSsl = True
sentlbl.Text = "sent"
smtpsetting.Send(mail)

End Sub
End Class