Protected Friend Function GetNextObject() As Object
        'Verifica se ci sono commesse
        If _offSetCommesse <= _commesse.Count Then
            'Verifica se ci sono componenti
            If Not _componenti Is Nothing Then
                If _offSetComponenti < _componenti.Count Then
                    'Ritorna il componente
                    _offSetComponenti += 1
                    Return _componenti(_offSetComponenti - 1)
                Else
                    'Azzera collection componenti
                    _offSetComponenti = 0
                    _componenti = Nothing
                End If
            End If

            'Verifica se ci si trova sull'ultima commessa
            If _offSetCommesse < _commesse.Count Then
                'Ritorna la commessa
                _offSetCommesse += 1
                _componenti = New Componenti.Componenti(_commesse(_offSetCommesse - 1)) : _offSetComponenti = 0
                Return _commesse(_offSetCommesse - 1)
            Else
                'Finalizza il documento
                _hasMore = False
            End If
        End If
        Return Nothing
    End Function