Public Class TypeCustomCollection
Inherits CollectionBase

Default Public Property Item(ByVal index As Integer) As Type
Get
Return CType(List(index), Type)
End Get

Set(ByVal value As Type)
List(index) = value
End Set
End Property

Public Function Add(ByVal Value As Type) As Integer
Return List.Add(Value)
End Function

Public Sub Remove(ByVal Value As Type)
If (List.Contains(Value)) Then
List.Remove(Value)
End If
End Sub
End Class