Row Colouring in DataGridView

I tried adding the RowPrePaint and RowPostPaint events as given below. Now the problem is that my background got set to the particular color but I am not getting any foreground text on it. Can someone please tell me where I am going wrong?

Private Sub DataGridView1_RowPrePaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPrePaintEventArgs) Handles DataGridView1.RowPrePaint
e.PaintParts = False
Dim rowBounds As New Rectangle(Me.DataGridView1.RowHeadersWidth, e.RowBounds.Top, DataGridView1.Columns.GetColumnsWidth(DataGridViewElementState.Visible) - DataGridView1.HorizontalScrollingOffset + 1, e.RowBounds.Height)
Dim tempBrush As SolidBrush
If DataGridView1.Rows(e.RowIndex).Cells("FDE_FRAUD_TYPE").Value = "CR_High_Risk" Then
tempBrush = New SolidBrush(Color.Red)
ElseIf DataGridView1.Rows(e.RowIndex).Cells("FDE_FRAUD_TYPE").Value = "CR_Med_Risk" Then
tempBrush = New SolidBrush(Color.Orange)
Else
tempBrush = New SolidBrush(Color.Green)
End If
Try
e.Graphics().FillRectangle(tempBrush, rowBounds)
Catch ex As Exception
Finally
tempBrush.Dispose()
End Try
End Sub

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
Dim rowBounds As New Rectangle(Me.DataGridView1.RowHeadersWidth, e.RowBounds.Top, DataGridView1.Columns.GetColumnsWidth(DataGridViewElementState.Visible) - DataGridView1.HorizontalScrollingOffset + 1, e.RowBounds.Height)
Dim forebrush As New SolidBrush(Color.Black)
Try
Dim recipe As Object = DataGridView1.Rows.SharedRow(e.RowIndex).Cells.Item(2).Value
If Not recipe Is Nothing Then
Dim temp As String = recipe.ToString()

Dim textArea As Rectangle = rowBounds
textArea.X = textArea.X - DataGridView1.HorizontalScrollingOffset
textArea.Width = textArea.Width + DataGridView1.HorizontalScrollingOffset
textArea.Y = textArea.Y + rowBounds.Height - e.InheritedRowStyle.Padding.Bottom
textArea.Height = textArea.Height - (rowBounds.Height - e.InheritedRowStyle.Padding.Bottom)
textArea.Height = textArea.Height / e.InheritedRowStyle.Font.Height * e.InheritedRowStyle.Font.Height
Dim clip As RectangleF = RectangleF.op_Implicit(textArea)
clip.Width = clip.Width - (DataGridView1.RowHeadersWidth + 1 - clip.X)
clip.X = DataGridView1.RowHeadersWidth() + 1
Dim oldClip As RectangleF = e.Graphics().ClipBounds()
e.Graphics().SetClip(clip)
e.Graphics().DrawString(temp, e.InheritedRowStyle.Font, forebrush, RectangleF.op_Implicit(textArea))
e.Graphics().SetClip(oldClip)
End If

Catch ex As Exception
Finally
forebrush.Dispose()
End Try
If DataGridView1.CurrentCellAddress.Y = e.RowIndex Then
e.DrawFocus(rowBounds, True)
End If
End Sub

Thanks for the answer Mark :). The bad part is that it slows down the grid loading by atleast 4-5 secs, should I be writing this code in some other event handler?

Regards,
Kunal