Public Class Test1
 
Private Withevents myTest as Test2 'Test2 ist Klasse mit event
Private myTests as Hashtable
 
Public Sub New()
 myTests = New Hashtable
End Sub
 
Public Sub Testnächste()
 myTest = New Test2
 myTests.add(system.GUID.NewGUID.Tostring,myTest)
End Sub
 
Private Sub myTest_Testevent(byval sender as Object, byval e as Eventargs) _
  Handles myTest.Testevent
end Sub
 
 
End Class

VB RULEZ !