Enviar e-mail desde VB .NET

	Todo se programa en el boton Enviar... Dim _Message As New System.Net.Mail.MailMessage()
	Dim _SMTP As New System.Net.Mail.SmtpClient
	'CONFIGURACIÓN DEL STMP
	_SMTP.Credentials = New System.Net.NetworkCredential("cuenta de correo", "contraseña")
	_SMTP.Host = "smtp.gmail.com"
	_SMTP.Port = 587
	_SMTP.EnableSsl = True
	' CONFIGURACION DEL MENSAJE
	_Message.[To].Add(Me.txtPara.Text.ToString) 'Cuenta de Correo al que se le quiere enviar el e-mail
	_Message.From = New System.Net.Mail.MailAddress("cuenta de correo", "nombre", System.Text.Encoding.UTF8) 'Quien lo envía
	_Message.Subject = Me.txtAsunto.Text.ToString 'Sujeto del e-mail
	_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
	_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail
	_Message.BodyEncoding = System.Text.Encoding.UTF8
	_Message.Priority = System.Net.Mail.MailPriority.Normal
	_Message.IsBodyHtml = False
	'ENVIO
	Try
	_SMTP.Send(_Message)
	MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)
	Catch ex As System.Net.Mail.SmtpException
	MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
	End Try 'Bueno el boton salir lo programan ud's mismos.. 'Sólo es un me.close

En términos quedaría así..