Public Class Form1
 
    Public Class A
        Public Event AsEvent(ByVal sender As Object, ByVal e As EventArgs)
 
        Protected Sub OnAsEvent(ByVal e As EventArgs)
            RaiseEvent AsEvent(Me, e)
        End Sub
    End Class
 
    Public Class B
        Inherits A
 
        Public Sub BDoSomeThing()
            MsgBox("BDoSomething")
        End Sub
    End Class
 
    Private Class c
        Inherits B
 
        Public Sub CRaiseAsEvent()
            OnAsEvent(New EventArgs())
        End Sub
    End Class
 
    Private WithEvents c1 As New C
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        c1.CRaiseAsEvent()
    End Sub
 
    Private Sub c1_AsEvent(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles c1.AsEvent
        MsgBox("C raised A's event")
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist