Farvelæg hveranden linie i en formular

Denne benytter jeg i rapporter :

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Const WHITE = 16777215
Const YELLOW = 65535

If (Me![LineNum] Mod 2) = 0 Then
            Me![UgeNR].BackColor = YELLOW
            Me![AntalGennemførte].BackColor = YELLOW
            Me![AntalPlanlagte].BackColor = YELLOW
        Else
            Me![UgeNR].BackColor = WHITE
            Me![AntalGennemførte].BackColor = WHITE
            Me![AntalPlanlagte].BackColor = YELLOW
End If

End Sub

... men hvordan hvis jeg vil gøre det samme i en formular ?