FuncBaseEnumerable.vb

funcbaseenumerable.vb

Public Class FuncBaseEnumerable(Of T)
  Implements IEnumerable(Of T)

  Private ReadOnly _getEnumerator As Func(Of IEnumerator(Of T))

  Public Sub New(getEnumerator As Func(Of IEnumerator(Of T)))
    _getEnumerator = getEnumerator
  End Sub

  Public Function GetEnumerator() As IEnumerator(Of T) Implements IEnumerable(Of T).GetEnumerator
    Return _getEnumerator()
  End Function

  Public Function GetEnumerator1() As IEnumerator Implements IEnumerable.GetEnumerator
    Return _getEnumerator()
  End Function
End Class