MessageListProgress Event

public event EventHandler<TEventArgs> MessageListProgress

Public Event MessageListProgress EventHandler(Of TEventArgs)

public:
 event EventHandler<TEventArgs>^ MessageListProgress

Show how to handle the MessageListProgress event.

using System;
using ComponentPro.Net.Mail;

...

public void ShowMessageListProgress()
{
    // Create a new Pop3 instance. 
    Pop3 client = new Pop3();

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

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

    try 
    {
        // Register an event handler. 
        client.MessageListProgress += client_MessageListProgress;

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

    // Disconnect. 
    client.Disconnect();
}

void client_MessageListProgress(object sender, Pop3MessageListProgressEventArgs e)
{
    // Show progress information. 
    Console.WriteLine("Downloaded {0}/{1}, {2} completed.", e.Downloaded, e.Total, e.Percentage);
}

Imports ComponentPro.Net.Mail

...

Public Sub ShowMessageListProgress()
    ' Create a new Pop3 instance. 
    Dim client As New Pop3()

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

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

    Try 
        ' Register an event handler. 
        AddHandler client.MessageListProgress, AddressOf client_MessageListProgress

        Dim list As Pop3MessageCollection = client.ListMessages(Pop3EnvelopeParts.Size Or Pop3EnvelopeParts.MessageInboxIndex Or Pop3EnvelopeParts.FullHeaders)
        ' Download the first one. 
        client.DownloadMessage(list(0).MessageInboxIndex, "c:\temp\my message.eml")
    Catch exc As Pop3Exception
        Console.WriteLine("Exception: " & exc.Message)
    End Try 
 
    ' Disconnect. 
    client.Disconnect()
End Sub 
 
Private Sub client_MessageListProgress(ByVal sender As Object, ByVal e As Pop3MessageListProgressEventArgs)
    ' Show progress information. 
    Console.WriteLine("Downloaded {0}/{1}, {2} completed.", e.Downloaded, e.Total, e.Percentage)
End Sub

Reference