Public Class Form1
    Dim WithEvents MeineKlasse As New Class1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf MeineKlasse.CharDied()
    End Sub
 
End Class
 
Public Class Class1
    Public Event CharDied()
 
 
    Private Sub Class1_CharDied() Handles Me.CharDied
        MsgBox("tot")
    End Sub
End Class