Dim MeineKlasse As New Class1
 
Private Sub frm_Load(sender As System.Object, e As System.EventArgs) Handles _
  MyBase.Load
 
    AddHandler Button1.Click, AddressOf MeineKlasse.Class1_CharDied
 
End Sub
 
 
Public Class Class1
 
    Public Sub Class1_CharDied(sender As Object, e As EventArgs)
 
        MsgBox("tot")
 
    End Sub
End Class