##DIRECTIVE START_TAG=<% END_TAG=%>
##DIRECTIVE MAP_TYPE String=String
##DIRECTIVE MAP_TYPE Integer=Integer
##DIRECTIVE MAP_TYPE Long=Integer
##DIRECTIVE MAP_TYPE Double=Double
##DIRECTIVE MAP_TYPE Date=Date
##DIRECTIVE MAP_TYPE Boolean=Boolean
##DIRECTIVE MAP_TYPE Variant=Object
##DIRECTIVE MAP_TYPE Object=Object
##DIRECTIVE MAP_TYPE Decimal=Decimal
'
'ClassGenerator Template Version 01.00.01
'
Public Class <%CLASS_NAME%>List
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As <%CLASS_NAME%>
        Get
            Return CType(List(index), <%CLASS_NAME%>)
        End Get
        Set(ByVal Value As <%CLASS_NAME%>)
            List(index) = Value
        End Set
    End Property

    Public Function Add(ByVal value As <%CLASS_NAME%>) As Integer
        Add = List.Add(value)
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As <%CLASS_NAME%>)
        List.Insert(index, value)
    End Sub

    Public Function IndexOf(ByVal value As <%CLASS_NAME%>) As Integer
        Return List.IndexOf(value)
    End Function

    Public Function Contains(ByVal value As <%CLASS_NAME%>) As Boolean
        Return List.Contains(value)
    End Function

    Public Sub Remove(ByVal value As <%CLASS_NAME%>)
        List.Remove(value)
    End Sub

    Public Sub CopyTo(ByVal array() As <%CLASS_NAME%>, ByVal index As Integer)
        List.CopyTo(array, index)
    End Sub

End Class