[Resolvido]Zebrado Relatório de duas em duas Linha

Boa tarde

Tenho este exemplo que zebra a cinza, linha sim linha não dum relatório.

Será possivel por a zebrar de 2 em 2 linhas ?

E dá erro de falta de uma referencia que eu não sei qual é.

http://dl.dropbox.com/u/8169944/Zebrado.mdb

Obrigado

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If Me.ID Mod 2 = 0 Then
CodeContextObject.Section(0).BackColor = Abs(CodeContextObject.Section(0).BackColor - 31646433)
End If
End Sub

Boa tarde

JPaulo sem comentário ..... perfeito.
Obrigado

Obrigado pelo retorno, o forum agradece.