[الكاتب]

كود :

 Dim s As Integer
       For s = 0 To DataGridView.RowCount - 1
           If DataGridView.Item(1, s).Value.ToString.Trim = Now.ToString("dd/MM/yyyy") Then
               DataGridView.Rows(s).DefaultCellStyle.BackColor = Color.Red
           Else
               DataGridView.Rows(s).DefaultCellStyle.BackColor = Color.Green
           End If
       Next