Public Class NArrayList
   Inherits ArrayList
 
   Public Event NumberOfElementsChanged(ByVal sender As Object, ByVal e As _
     EventArgs)
 
   Public Overrides Function Add(ByVal value As Object) As Integer
      Dim res As Integer = MyBase.Add(value)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
      Return res
   End Function
 
   Public Overrides Sub AddRange(ByVal c As System.Collections.ICollection)
      MyBase.AddRange(c)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
   End Sub
 
   Public Overrides Sub Clear()
      MyBase.Clear()
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
   End Sub
 
   Public Overrides Sub Insert(ByVal index As Integer, ByVal value As Object)
      MyBase.Insert(index, value)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
   End Sub
 
   Public Overrides Sub InsertRange(ByVal index As Integer, ByVal c As _
     System.Collections.ICollection)
      MyBase.InsertRange(index, c)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
      End Sub
 
   Public Overrides Sub Remove(ByVal obj As Object)
      MyBase.Remove(obj)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
   End Sub
 
   Public Overrides Sub RemoveAt(ByVal index As Integer)
      MyBase.RemoveAt(index)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
   End Sub
 
   Public Overrides Sub RemoveRange(ByVal index As Integer, ByVal count As _
     Integer)
      MyBase.RemoveRange(index, count)
      If RaiseEventThenNumberOfElementsChanged Then RaiseEvent _
        NumberOfElementsChanged(Me, EventArgs.Empty)
   End Sub
 
   Private raiseEventOnNumbersOfElementsChangedValue As Boolean
   Public Property RaiseEventThenNumberOfElementsChanged() As Boolean
      Get
         Return raiseEventOnNumbersOfElementsChangedValue
      End Get
      Set(ByVal value As Boolean)
         raiseEventOnNumbersOfElementsChangedValue = value
      End Set
   End Property
End Class

Ralf