VB .Net - Colorindo Células no DataGridView

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With DgdGrade

            .Rows.Add("Analista de TI", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")

            .Rows.Add("Analista de Sistemas", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")

            .Rows.Add("Analista de Negócios", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")

            .Rows.Add("Supervisor", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")

            .Rows.Add("Diretor", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")

        End With

        'Carrega as informações do checkBox

        PColoreCelulas()

    End Sub

    Private Sub PColoreCelulas()

        For Each linha As DataGridViewRow In Me.DgdGrade.Rows

            If linha.Cells(2).Value = True Then 'Verifica se o CheckBox foi marcado

                linha.Cells(2).Style.BackColor = Color.Red 'Se o checkBox for marcado a célula recebe a cor vermelha

            End If

            If linha.Cells(2).Value = False Then 'Verifica se o CheckBox foi marcado

                linha.Cells(2).Style.BackColor = Color.Silver 'Se o checkBox for marcado a célula recebe a cor cinza

            End If

        Next

    End Sub

    Private Sub DgdGrade_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgdGrade.CellClick

        PColoreCelulas()     

    End Sub

End Class

Pegue o projeto neste link:  http://www.mediafire.com/?bzg6oc9e47zh7bf

Espero ter ajudado, até mais... Abraços.