Colored rows in the ListBox in Access 2003

Hi all,

I have a ListBox on an Access 2003 form. It has a custom callback function for Row Source Type. Here is the final part of the function:

VB Code:

Case acLBOpen
Data = Timer          ' Unique ID.
Case acLBGetRowCount
Data = TotalDates + 1
Case acLBGetColumnCount
Data = 21
Case acLBGetColumnWidth
Data = -1            ' Use default width.
Case acLBGetValue       ' Get the data.
Data = ARow(Row, Col)
Case acLBGetFormat
Data = "#[Green];;""-"";""-"""
End Select

ARow is an array holding data. The first column is a date, the rest are numbers. If a number is zero, I change it for the dash (that part works OK). What I'd like to do is to make all Fridays of green color. In the code above, I am trying to use the format which works great in text fields on a form. Somehow, it doesn't work in this situation.

Help!

Thanks! :)