Hola a todos.Vereis estoy utilizando esta funcion para mandar correos electronico desde mi programa:

Public Function EnviarCorreo(ByVal Para As String, Optional ByVal Asunto As String = Nothing, Optional ByVal Cuerpo As String = Nothing) As Boolean

Dim m_OutLook As Outlook.Application
Try

'* Creamos un Objeto tipo Mail

Dim objMail As Outlook.MailItem

'* Inicializamos nuestra apliación OutLook

m_OutLook = New Outlook.Application

'* Creamos una instancia de un objeto tipo MailItem

objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem )

'* Asignamos las propiedades a nuestra Instancial del objeto

'* MailItem

objMail.To = Trim(Para)

objMail.Subject = Trim(Asunto)

objMail.Body = Trim(Cuerpo)


objMail.Display()


'* Enviamos nuestro Mail y listo!

'objMail.Send()

'* Desplegamos un mensaje indicando que todo fue exitoso

'MessageBox.Show("Mail Enviado", "Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Catch ex As Exception

'* Si se produce algun Error Notificar al usuario

MessageBox.Show(ex.ToString) '"Error enviando mail")

Finally

m_OutLook = Nothing

End Try
End Function

Y me abre el formulario tipico para introducir el texto del correo y adjuntar los archivos que desee.
El problema es que no aparece ningun boton de enviar correo.
¿Alguien me puede echar una mano?.Muchas gracias por vuestra ayuda.