Dennis
In the form code where you do the calculation add this code
Dim color_red As Long
Dim color_yellow As Long
Dim color_green As Long
color_red = RGB(255, 0, 0)
color_yellow = RGB(255, 255, 0)
color_green = RGB(0, 255, 0)
' calculations go here
' now format the backcolor
Select Case...