AsyncCompletedEventArgs.RaiseExceptionIfNecessary Method

' Define a custom Completed-event arguments class allowing 
' the data gathered by GetPersons to be returned. 
Public Class GetPersonsCompletedEventArgs
    Inherits AsyncCompletedEventArgs
    Private m_dataListValue As List(Of Person)
    Public Sub New _
        (ByVal dataList As List(Of Person), _
         ByVal exception As Exception, _
         ByVal cancelled As Boolean, _
         ByVal userState As Object)

        MyBase.New(exception, cancelled, userState)
        m_dataListValue = dataList
    End Sub

    Public ReadOnly Property DataListValue() As List(Of Person)
        Get
            Me.RaiseExceptionIfNecessary()
            Return m_dataListValue
        End Get
    End Property
End Class

// Define a custom Completed-event arguments class allowing 
// the data gathered by GetPersons to be returned.
public class GetPersonsCompletedEventArgs : AsyncCompletedEventArgs
{
    private List<Person> dataListValue;
    public GetPersonsCompletedEventArgs(
        List<Person> dataList,
        Exception error,
        bool cancelled,
        object userState)
        : base(error, cancelled, userState)
    {
        dataListValue = dataList;
    }
    public List<Person> DataListValue
    {
        get
        {
            this.RaiseExceptionIfNecessary();
            return dataListValue;
        }
    }
}

Public Delegate Sub GetPersonsCompletedEventHandler _
    (ByVal sender As Object, _
     ByVal e As GetPersonsCompletedEventArgs)

public delegate void GetPersonsCompletedEventHandler
    (object sender, GetPersonsCompletedEventArgs e);