Como formatar (colorir células) uma DataGridView com VB.Net. Visual Studio 2019

Como colorir células de uma DataGridView de acordo com o valor armazenado nela numa aplicação Windows Forms com Visual Basic .Net
VB.Net – Visual Studio

playlist – Como desenhar formulários para aplicações Windows Forms:
https://youtube.com/playlist?list=PLW83fkbt3BqkpCoYJgmICtiWCqgomRaEO

‘————————————————————-
‘ — Classe Vendas
Public Class Vendas
Public Id As Integer
Public Representante As String
Public Sexo As String
Public Meta As Decimal
Public Realizado As Decimal
Public Resultado As Double
Public Participacao As Double
Public MetaAtingida As String
Public Nota As String

Public Sub New()
End Sub

Public Sub New(_id As Integer, _representante As String, _sexo As String, _meta As Decimal, _realizado As Decimal, _resultado As Double, _participacao As Double, _metaAtingida As String, _nota As String)

Id = _id
Representante = _representante
Sexo = _sexo
Meta = _meta
Realizado = _realizado
Resultado = _resultado
Participacao = _participacao
MetaAtingida = _metaAtingida
Nota = _nota
End Sub

Public Function GetVendas() As List(Of Vendas)
Dim listaVendas = New List(Of Vendas)

listaVendas.Add(New Vendas(1, “Ana Lúcia dos Santos”, “F”, 20000, 19500, 98, 5, “Não”, “Bom”))
listaVendas.Add(New Vendas(2, “Eduardo Martins da Costa”, “M”, 65000, 60000, 92, 17, “Não”, “Bom”))
listaVendas.Add(New Vendas(3, “Lerandro de Barros”, “M”, 27000, 19500, 72, 5, “Não”, “Regular”))
listaVendas.Add(New Vendas(4, “Lígia Lima de Carvalho”, “F”, 23000, 25000, 109, 7, “Sim”, “Ótimo”))
listaVendas.Add(New Vendas(5, “Nelson Viera Ferraz”, “M”, 16000, 17500, 109, 5, “Sim”, “Ótimo”))
listaVendas.Add(New Vendas(6, “Tiago Batista “, “M”, 39000, 25000, 64, 7, “Não”, “Ruím”))
listaVendas.Add(New Vendas(7, “Vera do Nascimento Lima”, “F”, 110000, 96000, 86, 26, “Não”, “Bom”))
listaVendas.Add(New Vendas(8, “Walter Teizeia de Souza”, “M”, 95000, 100000, 105, 28, “Não”, “Bom”))

Return listaVendas
End Function

End Class

‘————————————————————-
‘ — Método ConfigurarGrade
Private Sub ConfigurarGrade()
With DataGridView1
.Columns.Add(“ID”, “Id”)
.Columns(“Sexo”).Width = 50

.Columns.Add(“Representate”, “Representante”)
.Columns(“Representate”).Width = 200

.Columns.Add(“Sexo”, “Sexo”)
.Columns(“Sexo”).Width = 50
.Columns(“Sexo”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(“Sexo”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns.Add(“Meta”, “Meta”)
.Columns(“Meta”).Width = 100
.Columns(“Meta”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(“Meta”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

.Columns.Add(“Realizado”, “Realizado”)
.Columns(“Realizado”).Width = 100
.Columns(“Realizado”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(“Realizado”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

.Columns.Add(“Resultado”, “Resultado %”)
.Columns(“Resultado”).Width = 100
.Columns(“Resultado”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(“Resultado”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns.Add(“Participacao”, “Participação %”)
.Columns(“Participacao”).Width = 100
.Columns(“Participacao”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(“Participacao”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns.Add(“MetaAtingida”, “Atingiu meta”)
.Columns(“MetaAtingida”).Width = 100
.Columns(“MetaAtingida”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(“MetaAtingida”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns.Add(“Nota”, “Nota”)
.Columns(“Nota”).Width = 100
.Columns(“Nota”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(“Nota”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

End With
end sub