VS 2019 Colouring DGV rows depending on it's contents.

Dim distinctValues = DataGridView1.Rows.
                               Cast(Of DataGridViewRow)().
                               Select(Function(row) CStr(row.Cells("Hora_para_cancelar").Value)).
                               Distinct().
                               ToArray()
                Dim allColors = {Color.Yellow, Color.Blue}
                Dim colorsByDate As New Dictionary(Of String, Color)
 
                For i = 0 To distinctValues.GetUpperBound(0)
                    colorsByDate.Add(distinctValues(i), allColors(i))
                Next