Public Class MyObjCollection
   Implements IList(Of MyObj)
   Implements System.ComponentModel.INotifyPropertyChanged
 
   Private iList As New List(Of MyObj)
 
   Public Event ListChanged(ByVal sender As Object, ByVal e As _
     System.ComponentModel.PropertyChangedEventArgs) Implements _
     System.ComponentModel.INotifyPropertyChanged.PropertyChanged
   Public Event MyObjChanged()
 
   Public Sub Add(ByVal item As MyObj) Implements _
     System.Collections.Generic.ICollection(Of Units.Creature).Add
      AddHandler item.MyObjChanged, AddressOf MyObj_Changed
      iList.Add(item)
 
      RaiseEvent ListChanged(Me, New _
        System.ComponentModel.PropertyChangedEventArgs("Add"))
   End Sub
 
   Public Sub AddRange(ByVal collection As _
     System.Collections.Generic.IEnumerable(Of MyObj))
      For Each item As MyObj In collection
         AddHandler item.MyObjChanged, AddressOf MyObj_Changed
         iList.Add(item)
      Next
 
      RaiseEvent ListChanged(Me, New _
        System.ComponentModel.PropertyChangedEventArgs("AddRange"))
   End Sub
 
   Private Sub MyObj_Changed()
      RaiseEvent MyObjChanged()
   End Sub
End Class