Public Class KeyedCollection(Of T)
    Implements IEnumerable(Of T)
    Implements IList(Of T)
    Implements ICollection(Of T)
 
    Private mInnerList As List(Of T)
    Private mKeyList As Dictionary(Of Integer, T)
 
    Public Sub New()
        mInnerList = New List(Of T)
        mKeyList = New Dictionary(Of Integer, T)
    End Sub
 
#Region "ICollection"
    Public Sub Add(ByVal item As T) Implements _
      System.Collections.Generic.ICollection(Of T).Add
        mInnerList.Add(item)
        'TODO: mKeyList.Add(Nr)
    End Sub
 
    Public Sub AddRange(ByVal items() As T)
        mInnerList.AddRange(items)
        For Each e As T In items
            'TODO: mKeyList.Add(Nr)
        Next
    End Sub
 
    Public Sub Clear() Implements System.Collections.Generic.ICollection(Of _
      T).Clear
        mInnerList.Clear()
        mKeyList.Clear()
    End Sub
 
    Public Function Contains(ByVal item As T) As Boolean Implements _
      System.Collections.Generic.ICollection(Of T).Contains
        Return mInnerList.Contains(item)
    End Function
 
    Public Function ContainsKey(ByVal Nr As Integer) As Boolean
        Return mKeyList.ContainsKey(Nr)
    End Function
 
    Public Sub CopyTo(ByVal array() As T, ByVal arrayIndex As Integer) _
      Implements System.Collections.Generic.ICollection(Of T).CopyTo
        mInnerList.CopyTo(array, arrayIndex)
    End Sub
 
    Public ReadOnly Property Count() As Integer Implements _
      System.Collections.Generic.ICollection(Of T).Count
        Get
            Return mInnerList.Count
        End Get
    End Property
 
    Public ReadOnly Property IsReadOnly() As Boolean Implements _
      System.Collections.Generic.ICollection(Of T).IsReadOnly
        Get
            Return False
        End Get
    End Property
 
    Public Function Remove(ByVal item As T) As Boolean Implements _
      System.Collections.Generic.ICollection(Of T).Remove
        'TODO: mKeyList.Remove(Nr)
        Return mInnerList.Remove(item)
    End Function
 
    Public Function RemoveKey(ByVal Nr As Integer) As Boolean
        Dim Item As T = mKeyList(Nr)
        mKeyList.Remove(Nr)
        mInnerList.Remove(Item)
    End Function
#End Region
#Region "IList"
    Public Function IndexOf(ByVal item As T) As Integer Implements _
      System.Collections.Generic.IList(Of T).IndexOf
        Return mInnerList.IndexOf(item)
    End Function
 
    Public Function IndexOfKey(ByVal Nr As Integer) As Integer
        Return IndexOf(mKeyList(Nr))
    End Function
 
    Public Sub Insert(ByVal index As Integer, ByVal item As T) Implements _
      System.Collections.Generic.IList(Of T).Insert
        mInnerList.Insert(index, item)
        'TODO: mKeyList.Add(Nr)
    End Sub
 
    Default Public Property IndexItem(ByVal index As Integer) As T Implements _
      System.Collections.Generic.IList(Of T).Item
        Get
            Return mInnerList.Item(index)
        End Get
        Set(ByVal value As T)
            mInnerList.Item(index) = value
        End Set
    End Property
 
    Public ReadOnly Property KeyItem(ByVal Nr As Integer) As T
        Get
            Return mKeyList(Nr)
        End Get
    End Property
 
    Public Sub RemoveAt(ByVal index As Integer) Implements _
      System.Collections.Generic.IList(Of T).RemoveAt
        Dim Item As T = mInnerList.Item(index)
        mInnerList.RemoveAt(index)
        'TODO: mKeyList.Remove(Nr)
    End Sub
#End Region
    Public Function GetEnumerator() As System.Collections.Generic.IEnumerator( _
      Of T) Implements System.Collections.Generic.IEnumerable(Of _
      T).GetEnumerator
        Return mInnerList.GetEnumerator
    End Function
 
    Public Function GetEnumerator1() As System.Collections.IEnumerator _
      Implements System.Collections.IEnumerable.GetEnumerator
        Return mInnerList.GetEnumerator
    End Function
End Class