problema con smtpclient

[CH4ØZ]

cuando intento enviar el mail por algun motivo la aplicacion deja de responder.
aqui el codigo:

Código (vbnet) [Seleccionar] Expandir

Try
   Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
   client.Credentials = New Net.NetworkCredential("XXX", "XXX")
   client.EnableSsl = True
   Message.Subject = "XXX"
   Message.Body = "XXX"
   client.Send(Message)
Catch ex As Exception
   MsgBox(ex.InnerException.ToString)
End Try


SOLUCIONADO

[CH4ØZ]

despues de estar un rato examinando, descubri que el codigo presentado anteriormente no es el causante del problema, si no lo que coloco en el body.

Código (vbnet) [Seleccionar] Expandir

Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString

si eso causa una exepcion, quiere decir que no hay ni sender ni e en el codigo (ya que testie con ambos valores)

Alguna idea del problema???
Este es el codigo:

Código (vbnet) [Seleccionar] Expandir

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   AddHandler Application.ThreadException, AddressOf ExceptionHandler
End Sub

    Private Sub ExceptionHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)
        Dim client As New SmtpClient("XXX"), Message As New MailMessage("XXX", "XXX")
        Message.IsBodyHtml = True
        Message.Subject = "XXX"
        Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString
        client.EnableSsl = True
        client.UseDefaultCredentials = False
        client.Credentials = New Net.NetworkCredential("XXX", "XXX")
        Try
            client.Send(Message)
        Catch ex As Exception
            MsgBox(ex.InnerException.ToString)
        End Try
        Application.Exit()
    End Sub