Class TuaForm
    Inherits Form
    'Private WithEvents SgxButton_Derived1 As New SgxButton_Derived

    Private Sub SgxButton_Derived1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SgxButton_Derived1.Click
        MsgBox("Evento Click!")
    End Sub
End Class

Public Class SgxButton
    Inherits System.Windows.Forms.Button

    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MsgBox("OnClick nella classe base. Verrà generato l'evento Click")

        ' Richiama OnClick della classe base, che scatena l'evento Click
        MyBase.OnClick(e)

        MsgBox("Classe base: Evento Click generato, termina OnClick")
    End Sub

End Class

Public Class SgxButton_Derived
    Inherits SgxButton

    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MsgBox("OnClick nella classe derivata. Chiamo OnClick della classe base")

        ' Richiama l'evento Click della classe base
        MyBase.OnClick(e)

        MsgBox("OnClick nella classe derivata terminato")
    End Sub

End Class