Next the program makes a DataGridViewCellStyle object that uses a pink background and red text. It loops through the data rows and when it finds a row with quiz average less than 75 it makes that row's quiz average cell use this style.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
    e As System.EventArgs) Handles MyBase.Load
    ' Make a DataTable.
    Dim students_table As New DataTable("Students")

    ' Add columns.
    students_table.Columns.Add("FirstName", GetType(String))
    students_table.Columns.Add("LastName", GetType(String))
    students_table.Columns.Add("Quiz Average", _
        GetType(String))

    ' Make the combined FirstName/LastName unique.
    Dim first_last_columns() As DataColumn = { _
        students_table.Columns("FirstName"), _
        students_table.Columns("LastName") _
    }
    students_table.Constraints.Add( _
        New UniqueConstraint(first_last_columns))

    ' Make some contact data.
    students_table.Rows.Add(New Object() {"Art", "Ant", 75})
    students_table.Rows.Add(New Object() {"Bev", "Bug", 80})
    students_table.Rows.Add(New Object() {"Cid", "Cat", 97})
    students_table.Rows.Add(New Object() {"Deb", "Dove", _
        82})
    students_table.Rows.Add(New Object() {"Ed", "Eager", _
        67})
    students_table.Rows.Add(New Object() {"Fran", "Fix", _
        71})
    students_table.Rows.Add(New Object() {"Gus", "Gantry", _
        88})
    students_table.Rows.Add(New Object() {"Hil", "Harris", _
        63})

    ' Attach grdStudents to the DataTable.
    grdStudents.DataSource = students_table

    ' Shade scores below 75 pink.
    Dim low_score_style As New DataGridViewCellStyle()
    low_score_style.BackColor = Color.Pink
    low_score_style.ForeColor = Color.Red

    For r As Integer = 0 To students_table.Rows.Count - 1
        If students_table.Rows(r).Item("Quiz Average") < 75 _
            Then
            grdStudents.Item(2, r).Style = low_score_style
        End If
    Next r
End Sub