RecorteX

Esto se usa para hacer una coleccion de un mismo objeto

descargar
 
  Public Class ProcesosBase
    Inherits CollectionBase
 
    Public Sub New()
    End Sub
 
    Public ReadOnly Property Item(ByVal index As Integer) As CLASE_A_USAR
        Get
           Return CType(List.Item(index), CLASE_A_USAR)
        End Get
    End Property
 
    Public Function Add(ByVal value As CLASE_A_USAR) As Integer
        Dim res As Integer
        res = List.Add(value)
        Return res
    End Function
 
End Class