Events von übergeordneter Class ausführen lassen

Hallo,

Ich hab folgendes Problem:

Ich habe eine Class A, innerhalb dieser Class A gibt es eine Auflistung von Class B´s.
Ich werde in meiner Class Form1 die Class A einbauen mi WithEvents.
Jetzt mein Problem:
Die Class B ist innerhalb der Class A und wirft Events.
Ich möchte aber, dass wenn der Sub "EventAbfeuern" aufgerufen wird, dass dann der Event von der Class A geworfen wird. Ich weiß, dass ich irgendwie Delegates verwenden muss, aber ich versteh nicht genau wie...

Ich hoffe, ihr könnt mir helfen!

Hier ein Beispiel zur Veranschaulichung:


Vielen Dank im Voraus!

Mit freundlichen Grüßen,
Chrisotpher

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim cA As New A
    End Sub
End Class

Public Class A
    WithEvents mytest As New B
    Friend Shared Event eventA()

    Private Sub A_eventA() Handles Me.eventA
        MsgBox("EventA Fired")  
    End Sub

    Public Class B
        Private Event eventB()
        Public Sub New()
            RaiseEvent eventA()
        End Sub
    End Class
End Class

Public Class A
   Dim l as New List(Of B)

   sub AddClassB
        dim CB as new ClassB
        AddHandler CB.ClassB_changed, AddressOff Child_ClassB_changed
        I.Add(CB)
   end sub

   sub Child_ClassB_changed(Sender as object, e as EventArgs)
      msgbox("Ein Element von I hat ClassB_changed ausgelöst.")  
   end sub


   <Serializable()> Public Class B
      Public Event ClassB_changed(Sender as object, e as EventArgs)
  
      Private Sub EventAbfeuern()
           RaiseEvent  ClassB_changed(Me, nothing)         
       End Sub
   End Class
End Class

 WithEvents mytest As New B 

Dim l as New List(Of B) 

Public Class Form1 
    Dim WithEvents cA As New A 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
        Dim cB As New A.B
        cA.Add(cB) 'Add hab ich gemacht um B an die Liste l zu übergeben  
       'Wenn jetzt ein Event aus einem der Elemente in der Liste l gefeuert wird, dann soll der Event bei cA ausgelöst werden.  
    End Sub 
End Class 

RaiseEvent  ClassB_changed(Me, nothing)