如何让MSFlexGrid每个单元格所显示字的颜色不同.......

Question

'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-27
'Description:要试用本例请在窗体中填加MSFlexGrid和一个Command
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    Dim lngRow As Long
    Dim lngCol As Long
    
    With MSFlexGrid1
        For lngRow = .FixedRows To .Rows - 1
            For lngCol = .FixedCols To .Cols - 1
                .Row = lngRow
                .Col = lngCol
                .CellBackColor = QBColor(Rnd(Timer) * 16)
            Next
        Next
    End With
End SubPrivate Sub Form_Load()
    MSFlexGrid1.Rows = 6
    MSFlexGrid1.Cols = 6
End Sub