Visual Basic - SHELLEXECUTE problema

Primero hice un proyecto con ShellExecute para enviar emails. (Y no hacia nada)
Luego me baje de internet un proyecto con ShellExecute para enviar (Y tampoco hace nada)

O sea, el problema es que despues de cargarse pulso la tecla SEND y no hace nada de nada.
No da errores. No hay error. No hay nada de nada, La maquina se queda sin hacer nada.
Y no lo entiendo.
He probado en Referencias agregarle librerias del Outlook y sigue igual.

Por si quereis el codigo aqui esta (bajado de internet):

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOW = 1

Private Sub cmdSend_Click()
ShellExecute hwnd, _
"open", _
"mailto:" & txtTo.Text & _
"?cc=" & txtCc.Text & _
"&bcc=" & txtBcc.Text & _
"&subject=" & txtSubject.Text & _
"&body=" & Replace(txtMessage.Text, vbCrLf, "%0D%0A"), _
vbNullString, vbNullString, _
SW_SHOW
End Sub

El formulario lleva 5 Textbox y un boton Send.

¿Alguien le ha pasado lo mismo con el ShellExecute?

Gracias.