class A
 private meineBs as List(of B) = new List(of B)
 
 private sub machwas()
  while bisfertig
   dim newB as B = new B()
   meineBs.add(newB)
  end while
 end sub
 
 end class
 
 class B
 
 public event meldung(d as daten)
 
 private sub meldedich
  raiseevent meldung(daten)
 end sub
 
 end class