CommandResponse Event

public event EventHandler<TEventArgs> CommandResponse

Public Event CommandResponse EventHandler(Of TEventArgs)

public:
 event EventHandler<TEventArgs>^ CommandResponse

Show how to handle the CommandResponse event.

using System;
using System.Text;
using ComponentPro.Net;
using ComponentPro.Net.Mail;

...

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

    // Register event handlers. 
    client.CommandResponse += client_CommandResponse;

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

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

    // ... 
 
    // Do something here 
    // ... 
 
    StringBuilder sb = new StringBuilder();

    Pop3MessageCollection list = client.ListMessages(Pop3EnvelopeParts.Size | Pop3EnvelopeParts.UniqueId);
    for (int i = 0; i < list.Count; i++)
    {
        sb.AppendFormat("{0} - {1}\r\n", i + 1, list[i].UniqueId);
    }

    Console.WriteLine(sb.ToString());

    // ... 
 
    // Disconnect. 
    client.Disconnect();
}

void client_CommandResponse(object sender, CommandResponseEventArgs e)
{
    if (e.Command != null)
        Console.WriteLine("CMD>       " + e.Command);
    else 
        Console.WriteLine("RESPONSE>  " + e.Response);
}

Imports System.Text
Imports ComponentPro.Net
Imports ComponentPro.Net.Mail

...

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

    ' Register event handlers. 
    AddHandler client.CommandResponse, AddressOf client_CommandResponse

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

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

    ' ... 
 
    ' Do something here 
    ' ... 
 
    Dim sb As New StringBuilder()

    Dim list As Pop3MessageCollection = client.ListMessages(Pop3EnvelopeParts.Size Or Pop3EnvelopeParts.UniqueId)
    For i As Integer = 0 To list.Count - 1
        sb.AppendFormat("{0} - {1}" & vbCrLf, i + 1, list(i).UniqueId)
    Next i

    Console.WriteLine(sb.ToString())

    ' ... 
 
    ' Disconnect. 
    client.Disconnect()
End Sub 
 
Private Sub client_CommandResponse(ByVal sender As Object, ByVal e As CommandResponseEventArgs)
    If e.Command IsNot Nothing Then 
        Console.WriteLine("CMD>       " & e.Command)
    Else 
        Console.WriteLine("RESPONSE>  " & e.Response)
    End If 
End Sub

Reference