运行效果：
程序代码：
Private Sub Form_Load()
Dim i, j As Integer
Me.MSHFlexGrid1.Cols = 8
Me.MSHFlexGrid1.Rows = 15
For j = 0 To Me.MSHFlexGrid1.Cols - 1 '从第一列到最后一列遍历循环
Me.MSHFlexGrid1.ColAlignment(j) = 3 '列内容顶部居中
For i = 0 To Me.MSHFlexGrid1.Rows - 1 '从第一行到最后一行遍历循环
Me.MSHFlexGrid1.TextMatrix(i, j) = i * j '单元格的数值等于坐标乘积
Next i
Next j
End Sub
学习心得：
1、添加部件"Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)"才能使用MSHFlexGrid.
Col：列，Row：行。
Cols：总列数；Rows：总行数。
ColWidth：列宽；RowHeight：行高。
ColAlignment：列对齐；CellAlignment：单元对齐。
