Public Class Klasse1
   Public Sub Start()
      Dim k2 as New k2
      k2.OnDasEvent()
   End Sub
End Class
 
Public Class Klasse2
   Public Event DasEvent()
   Public Sub OnDasEvent()
        RaiseEvent(DasEvent)
   End Sub
End Class