Private Sub Form_Load()
Dim lngRow As Long
Dim lngCol As Long
With Me.MSFlexGrid1
.Rows = 6
.Cols = 3
For lngRow = .FixedRows To .Rows - 1
.Row = lngRow
For lngCol = .FixedCols To .Cols - 1
.Col = lngCol
.Text = Timer
.CellForeColor = QBColor(Rnd * 16)
Next
Next
End With
End Sub