Public Class Form1
    Dim WithEvents MeineKlasse As New Class1
 
    Private Sub MeineKlasse_CharDied() Handles MeineKlasse.CharDied
        MsgBox("tot")
    End Sub
 
End Class
 
Public Class Class1
    Public Event CharDied()
 
    Public Sub Class1_CharDied()
        RaiseEvent CharDied()
    End Sub
End Class