My codes
Private Sub CadastroDataGridView_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles CadastroDataGridView.CellFormatting
If Me.CadastroDataGridView.Columns(e.ColumnIndex).Name = "DataGridViewTextBoxColumn15" Then
If e.Value IsNot Nothing Then
Dim dgvdate As Date = CDate(e.Value)
If dgvdate < CDate(Now) Then
e.CellStyle.BackColor = Color.Red
e.FormattingApplied = True
Else
e.CellStyle.BackColor = Color.Green
e.FormattingApplied = True
End If
End If
End If
End Sub