Public Class MyBindingList(Of T)
    Inherits List(Of T)
    Implements System.ComponentModel.IBindingList
 
    Public Event ListChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.ListChangedEventArgs) Implements _
      System.ComponentModel.IBindingList.ListChanged
 
    Public Overloads Sub Add(ByVal item As T)
        MyBase.Add(item)
        RaiseEvent ListChanged(Me, New _
          System.ComponentModel.ListChangedEventArgs( _
          System.ComponentModel.ListChangedType.ItemAdded, Me.Count - 1))
    End Sub
 
    Public ReadOnly Property SupportsChangeNotification() As Boolean Implements _
      System.ComponentModel.IBindingList.SupportsChangeNotification
        Get
            Return True
        End Get
    End Property
 
'... der ganze andere IBindingList-Code ist für dieses Bsp. erstmal unerheblich 
' ...
 
End Class

Public Class Form1
    Private rnd As New Random(Date.Now.Millisecond)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim lst As New MyBindingList(Of Point)
        DataGridView1.DataSource = lst
        lst.Add(New Point(rnd.Next(1, 99), rnd.Next(1, 99)))
        lst.Add(New Point(rnd.Next(1, 99), rnd.Next(1, 99)))
        lst.Add(New Point(rnd.Next(1, 99), rnd.Next(1, 99)))
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim lst As MyBindingList(Of Point) = CType(DataGridView1.DataSource, _
        MyBindingList(Of Point))
        lst.Add(New Point(Rnd.Next(1, 99), Rnd.Next(1, 99)))
    End Sub
End Class