Visual Basic - Enviar correo electronico

Hola a todos.
¿Como puedo enviar correo usando el programa de correo electronico prodeterminado?

Gracias y un saludo

Esta funcion envia un email con el programa predeterminado(lo abre con la direccion ya escrita)

Function EnviarEmail(Direccion As String)
ShellExecute GetActiveWindow(), "Open", "mailto:" & Direccion, "mailto:" & Direccion, 0&, 1
End Function

Pero, ¿cómo puedo adjuntar el documento que quiero enviar?

Podes utilizar MAPI, fijate en la MSDN los controles MAPI, sino te envío un pequeño tutorial que tengo del tema.

Te envío un ejemplo a tu email.

Saludos...

Me puedes enviar un ejemplo a mi email. Gracias de antemano