Code:

 Dim i, j As Integer
        For j = 0 To dgvPom.RowCount - 1
            For i = 0 To dgvP.RowCount - 1
                If dgvPom.Item(0, j).Value = [blue]dgvP.Item(8, i).Value[/blue] Then
                    dgvP.Item(2, i).Style.BackColor = Color.LightGreen
                    dgvP.Item(2, i).Style.SelectionBackColor = Color.LightGreen
                    dgvP.Item(2, i).Style.SelectionForeColor = Color.DarkBlue
                End If
            Next
        Next