Dim processos = processoBLL.ListaProcessoPeriodoAcordao(dteDataInicio.Date, dteDataFinal.Date)
Dim processosGroup = processos.GroupBy(Function(p) New With {Key p.cod_tipo_processo, Key p.tipo_processo.nome}) _
.Select(Function(p) New EstatisticasTipo With {.CodTipoProcesso = p.Key.cod_tipo_processo, .TipoProcesso = p.Key.nome, .Quantidade = p.Count(Function(x) x.cod)})