Public Class clsDataTable
 
    Inherits System.Data.DataTable
    Public Event RowAdded()
 
    Public Function AddRow(ByVal r As System.Data.DataRow)
        Me.Rows.Add(r)
        RaiseEvent RowAdded()
    End Function
 
End Class
 
 
Im rufenden Programm:
 
 
Dim myDataTable as clsDataTable
Dim r as System.Data.DataRow
 
With myDataTable
    r = .NewRow
 
    'r mit Daten füllen 
    '......
    '.......
 
    'Statt 
 
    .rows.add(r)
 
    'verwendet man für Hinzufügen einfach die neue Methode
 
    .AddRow(r)            
 
End With