Public Class ListEv(Of t)
        Inherits System.Collections.Generic.List(Of t)
        Private _SuspendEvents As Boolean = False
 
        Public Event ValueChanging(ByVal Index As Integer, _
                                   ByVal OldValue As t, ByRef NewValue As t)
 
        Public Event Valuechanged(ByVal Index As Integer, ByVal newvalue As t)
 
        Public Property Suspend_Events() As Boolean
            Get
                Return _suspendevents
            End Get
            Set(ByVal value As Boolean)
                _suspendevents = value
            End Set
        End Property
 
        Default Public Shadows Property item(ByVal index As Integer) As t
            Get
                Return MyBase.Item(index)
            End Get
            Set(ByVal value As t)
                If Not _SuspendEvents Then
                    RaiseEvent ValueChanging(index, MyBase.Item(index), value)
                End If
 
                MyBase.Item(index) = value
 
                If Not _SuspendEvents Then
                    RaiseEvent Valuechanged(index, MyBase.Item(index))
                End If
            End Set
        End Property
    End Class

     Dim WithEvents myIntegers As New ListEv(Of Integer)

   For i As Integer = 0 To 9
      myIntegers.Add(0)
   Next i

    MyIntegers(5) = 12

    Private Sub myIntegers_ValueChanging(ByVal Index As Integer, _
        ByVal OldValue As Integer, ByRef NewValue As Integer) _
        Handles myIntegers.ValueChanging
 
        Dim r As Microsoft.VisualBasic.MsgBoxResult
 
        r = Microsoft.VisualBasic.MsgBox("Integer " & CStr(Index) & _
        " soll geändert werden" & Microsoft.VisualBasic.vbCrLf & _
        "von " & CStr(OldValue) & " zu " & CStr(NewValue), _
        Microsoft.VisualBasic.MsgBoxStyle.OkCancel)
 
        If r = Microsoft.VisualBasic.MsgBoxResult.Cancel Then
            NewValue = OldValue
        End If
    End Sub

        myIntegers.Suspend_Events = True
        For i As Integer = 0 To 1000
            myIntegers(1) += i
        Next i
        myIntegers.Suspend_Events = False