Buscar elementos repetidos en una columna

Dim query1 = (From i As DataGridViewRow In dg_captura.Rows Select i.Cells(0)).ToList()

            Dim query2 = query1.GroupBy(Function(x) x.Value).Where(Function(g) g.Count > 1).Select(Function(y) y.Key).ToList()


fuente