Note: This is just the main bits, there are little pieces that need to be coded here and there to complete it.

1) Declare your variables
Private disabledBackBrush As Brush
Private disabledTextBrush As Brush
Private currentRowFont As Font
Private currentRowBackBrush As Brush
*************************
2) Give your brushes values
Me.disabledBackBrush = New SolidBrush(SystemColors.InactiveCaptionText)
Me.disabledTextBrush = New SolidBrush(SystemColors.GrayText)
Me.currentRowFont = New Font(Me.DataGrid1.Font.Name, Me.DataGrid1.Font.Size, FontStyle.Bold)
Me.currentRowBackBrush = Brushes.Pink
******************************
3) Have it activate the colours depending on when you want it to change from the basic settings.
If e.Column > 0 AndAlso Me.DataGrid1(e.Row, 7) = 0 Then ‘discontinued?
e.BackBrush = Me.currentRowBackBrush
e.TextFont = Me.currentRowFont
ElseIf e.Column > 0 AndAlso e.Row = Me.DataGrid1.CurrentRowIndex Then ‘currentrow?
e.BackBrush = Me.disabledBackBrush
e.ForeBrush = Me.disabledTextBrush
End If