Assigning color to cell on grid.

[juniorCoder001]

Hi all,

I have this code.

For i = 0 To grdDiary.Rows - 1
      
      ' Selects the disired row.
      grdDiary.Row = i
 
      ' Sets the text on the row
      grdDiary.Text = DateAdd("d", i - 1, sMonth)
      
      ' If the text on the row is the same as todays date
      If grdDiary.Text = CStr(DateTime.Date) Then
        ' ????
      Else
        ' ????
      End If
      
Next i

Basically the loop will run through each row setting every date in the month on the left column, what I want it to do is when it finds todays date, highlight it in some way.

The text cannot change, but it can change color or I could place an picture behind it. I just want the cell to be highlighted, not the row.

its a standard vb6 grid.

Any ideas?

Many thanks in advance...

Mark