With MSFlexGrid1
.Clear
.Cols = 11
.Rows = 11
.FixedCols = 1
.FixedRows = 1
End With
Dim iCol As Integer
For iCol = 1 To 10
MSFlexGrid1.TextMatrix(0, iCol) = "Cabecera " & iCol
Next iCol
Dim iRow As Integer
For iRow = 1 To 10
MSFlexGrid1.TextMatrix(iRow, 0) = iRow
For iCol = 1 To 10
MSFlexGrid1.TextMatrix(iRow, iCol) = "Fila " & iRow & ",Columna " & iCol
Next iCol
Next iRow