Public Class EventRaiser
 
   ''' <summary>Klasse zur Übergabe der Informationen</summary>
   Public Class EventRaiserArgs
      Inherits EventArgs
 
      Private _params As Object
 
      ''' <summary>Die gesendeten Informationen</summary>
      Public ReadOnly Property eventParams As Object
           Get
              Return _params
           End Get
      End Property
 
      ''' <summary>Die zu sendenden Informationen</summary>
      Public Sub New(Params As Object)
         _params = Params
      End Sub
  End Class
 
 
  Public Event Information(ByVal sender As Object, ByVal e As EventRaiserArgs)
 
 
  ''' <summary>Methode wird gerufen, um das Event Information zu senden</summary>
  ''' <param name="sender">Das informierende Objekt</param>
  ''' <param name="e">Argument enthält die zu sendenden Informationen</param>
  Public Sub Raise(ByVal sender As Object, ByVal e As EventRaiserArgs)
     RaiseEvent Information(sender, e)
  End Sub
End Class