'Supongamos que tenemos el destinatario y el adjunto en variables.
Dim strDestinatario = "uno@uno.com"
Dim strRuta = "c:\file.pdf"
'Definimos nuestra variable para enviar correo
Dim clienteSMTP As New System.Net.Mail.SmtpClient()
clienteSMTP.Host = "mail.server.com"
clienteSMTP.Port = 25 'Este suele ser el puerto por defecto de correo.
clienteSMTP.Credentials = New Net.NetworkCredential("UsuarioCorreo", "PasswordCorreo") 'Nuestra ID de inicio de sesion.
'Definimos nuestro correo
Dim correo As New System.Net.Mail.MailMessage()
'Añadimos un destinatario
correo.To.Add(strDestinatario)
'Añadimos un adjunto.
correo.Attachments.Add(New Attachment(strRuta))
'Direccion desde la que enviamos.
correo.From = New MailAddress("mimail@mail.com")
correo.Subject = "Prueba de correo"
correo.Body = "Correo con adjunto"
'Enviamos el correo
clienteSMTP.Send(correo)