FLEXGRID
Algume sabe com posso zebrar um flexgrid ja com o grid com dados.Supo-mos que o Flexgrid tem 2 linhas um fica branca e outra amarela. 
Tenta
Dim i as long
Dim j as long
Dim C1 as Ole_Color
Dim C2 as Ole_Color
C1 = vbyellow
C2 = vbred
for i = 1 to grid.rows
fgrid .row = i
for j = 1 to grid.cols
grid.col= j
if i mod 2 = 0 then
grid.cellbackcolor = c1
else
grid.cellbackcolor = c2
end if
next
next
Dim i as long
Dim j as long
Dim C1 as Ole_Color
Dim C2 as Ole_Color
C1 = vbyellow
C2 = vbred
for i = 1 to grid.rows
fgrid .row = i
for j = 1 to grid.cols
grid.col= j
if i mod 2 = 0 then
grid.cellbackcolor = c1
else
grid.cellbackcolor = c2
end if
next
next
Boa KPELLA Com este Link vou até otimizar o meu exemplo
Tenta
Dim i as long
Dim C1 as Ole_Color
Dim C2 as Ole_Color
C1 = vbyellow
C2 = vbred
for i = 1 to grid.rows
grid.col= 0
grid.colsel = grid.cols-1
if i mod 2 = 0 then
grid.cellbackcolor = c1
else
grid.cellbackcolor = c2
end if
next
Tenta
Dim i as long
Dim C1 as Ole_Color
Dim C2 as Ole_Color
C1 = vbyellow
C2 = vbred
for i = 1 to grid.rows
grid.col= 0
grid.colsel = grid.cols-1
if i mod 2 = 0 then
grid.cellbackcolor = c1
else
grid.cellbackcolor = c2
end if
next
Tópico encerrado , respostas não são mais permitidas