Public Class EventArgs(Of T)
    Inherits EventArgs
    Private _data As T
    ''' <summary>
    ''' Construct the generic EventArgs and set tha data to data
    ''' </summary>
    ''' <param name="data"></param>
    Public Sub New(ByVal data As T)
        _data = data
    End Sub
    ''' <summary>
    ''' the Data to transfer
    ''' </summary>
    Public ReadOnly Property Data() As T
        Get
            Return _data
        End Get
    End Property
End Class