Public Class MyTestClass
 
    Public Event TestEvent(ByVal sender As Object, ByVal e As MyTestEventArgs)
 
    Public Sub Raise(ByVal txt As String)
        RaiseEvent TestEvent(Me, New MyTestEventArgs(txt))
    End Sub
 
End Class
 
 
Public Class MyTestEventArgs
    Inherits EventArgs
 
    Private mText As String
    Public ReadOnly Property Text As String
        Get
            Return mText
        End Get
    End Property
 
    Public Sub New(ByVal txt As String)
        mText = txt
    End Sub
 
End Class