Chikos estoy tratando de enviar y recibir los correos de mi OutLook con el siguiente codigo

 
Imports Microsoft.Office.Interop
 
Dim OutlookApp As New Outlook.Application()
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        OutlookApp = CreateObject("Outlook.Application")
        OutlookApp.Session.Logon("Outlook")
        OutlookApp.Session.SendAndReceive(False)
        OutlookApp = Nothing
        'End
 
 
    End Sub
 
 

Esto funciona super bien el tema es que necesito capturar el momento en que ya termino de enviar y recibir vi varios ejemplos pero no logro hacerlos echar andar, no se dispara el procedimiento SyncEnd cuando supuestamente termina...

Alguna idea

Trabajo con el Office 2103 y 2010