bestehende Klasse erweitern und Funktion überschreiben

' neue Klasse
Public Class ValueChangedEvent
    ' erweitert die Basisklasse
    Inherits SourceGrid.Cells.Controllers.ControllerBase

    ' überschreibt die Funktion
    Public Overrides Sub OnValueChanged(ByVal sender As SourceGrid.CellContext, ByVal e As System.EventArgs)
        ' ruft die Funktion der Basisklasse auf
        MyBase.OnValueChanged(sender, e)

        ' zus. Code
        Dim val As String = "Value of cell {0} is '{1}'"

        MessageBox.Show(sender.Grid, String.Format(val, sender.Position, sender.Value))
    End Sub
End Class