SoloCodigo

Gaita:

Te recomiendo que utilices el MSFlexGrid y puedes hacer una función como la siguiente:


Public Sub colores(ColorGrid As MSFlexGrid, R As Integer, G As Integer, b As Integer)
ColorGrid.Rows = 17
ColorGrid.Cols = 11

ban = 0
    'For j = 0 To ColorGrid.Cols - 1
    'COMO TENGO CUETRO OCULTAS NO ES NECESARIO QUE SE PINTEN
    ' Y REDUZCO EL CONTADOR DE LAS COLUMNAS
    For j = 0 To ColorGrid.Cols - 4
       For i = 1 To ColorGrid.Rows - 1
            If i / 2 <> Int(i / 2) Then
                ColorGrid.Col = j
                ColorGrid.Row = i
                ColorGrid.CellBackColor = RGB(R, G,
            Else
                 ColorGrid.Col = j
                ColorGrid.Row = i
                'ColorGrid.CellBackColor = &HC0E0FF
                ColorGrid.CellBackColor = &HC0FFFF
            End If
        Next i
    Next j
ban = 1
End Sub




Cada vez que desees pintar el grid lo hara en dos colores

espero te sirva

saludos
Juan Carlos
México D.F.