ListProcessing Event

public event EventHandler<TEventArgs> ListProcessing

Public Event ListProcessing EventHandler(Of TEventArgs)

public:
 event EventHandler<TEventArgs>^ ListProcessing

Show how to handle the ListProcessing event.

using System;
using ComponentPro.Net.Mail;

...

private int _messageCount;
public void ShowListProcessing()
{
    // Create a new Imap instance. 
    Imap client = new Imap();

    // Connect to the POP3 server. 
    client.Connect("myserver");

    // Authenticate. 
    client.Authenticate("test", "test");

    try 
    {
        // Register an event handler. 
        client.ListProcessing += client_ListProcessing;

        client.Select("INBOX");

        Folder mailbox = client.GetFolderInfo("INBOX");
        _messageCount = mailbox.TotalMessages;

        ImapMessageCollection list = client.ListMessages(ImapEnvelopeParts.Size | ImapEnvelopeParts.MessageInboxIndex | ImapEnvelopeParts.FullHeaders);
        // Download the first one. 
        client.DownloadMessage(list[0].MessageInboxIndex, "c:\\temp\\my message.eml");
    }
    catch (ImapException exc)
    {
        Console.WriteLine("Exception: " + exc.Message);
    }

    // Disconnect. 
    client.Disconnect();
}

void client_ListProcessing(object sender, ImapListProcessingEventArgs e)
{
    // Show progress information. 
    Console.WriteLine("Downloaded {0}/{1}, {2} completed.", e.ProcessedLines, _messageCount, (float)e.ProcessedLines / _messageCount);
}

Imports ComponentPro.Net.Mail

...

Private _messageCount As Integer 
Public Sub ShowListProcessing()
    ' Create a new Imap instance. 
    Dim client As New Imap()

    ' Connect to the POP3 server. 
    client.Connect("myserver")

    ' Authenticate. 
    client.Authenticate("test", "test")

    Try 
        ' Register an event handler. 
        AddHandler client.ListProcessing, AddressOf client_ListProcessing

        client.Select("INBOX")

        Dim mailbox As Folder = client.GetFolderInfo("INBOX")
        _messageCount = mailbox.TotalMessages

        Dim list As ImapMessageCollection = client.ListMessages(ImapEnvelopeParts.Size Or ImapEnvelopeParts.MessageInboxIndex Or ImapEnvelopeParts.FullHeaders)
        ' Download the first one. 
        client.DownloadMessage(list(0).MessageInboxIndex, "c:\temp\my message.eml")
    Catch exc As ImapException
        Console.WriteLine("Exception: " & exc.Message)
    End Try 
 
    ' Disconnect. 
    client.Disconnect()
End Sub 
 
Private Sub client_ListProcessing(ByVal sender As Object, ByVal e As ImapListProcessingEventArgs)
    ' Show progress information. 
    Console.WriteLine("Downloaded {0}/{1}, {2} completed.", e.ProcessedLines, _messageCount, CSng(e.ProcessedLines) / _messageCount)
End Sub

Reference