Public Class Klasse1
   Public Sub Start()
      RaiseEvent Klasse2.DasEvent()
   End Sub
End Class
 
Public Class Klasse2
   Public Event DasEvent()
End Class
 
Public Class Klasse3
   Public Withevents clsKlasse2 As New Klasse2
   Sub HandleEvent() handles clsKlasse2.DasEvent
      MessageBox.Show("Diese Messagebox wurde über 'Klasse1' aufgerufen")
   End Sub
End Class
 
Public Class Klasse4
   Public Withevents clsKlasse2 As New Klasse2
   Sub HandleEvent() handles clsKlasse2.DasEvent
      MessageBox.Show("Auch hier diese Messagebox wurde über 'Klasse1'" & _
        "aufgerufen")
   End Sub
End Class