Private Sub SetCellColor(ByVal row As Integer, ByVal col As Integer, ByVal ColorType As Integer)
Dim c As Integer
With flxData
.row = row
.col = col
If ColorType = 0 Then
.CellBackColor = vbWindowBackground
.CellForeColor = vbWindowText
Else
.CellBackColor = &H996633
.CellForeColor = vbWhite
End If
.col = c
If ColorType = 0 Then
.CellBackColor = vbWindowBackground
Else
.CellBackColor = &HFFCC99
End If
End With
End Sub