Private Sub Form_Load()
   Dim X As Long
   '设置表格列个数及列标题
   MSHFlexGrid1.FormatString = "^  编号  |  姓 名  |  年  龄  |  性 别  |  出生日期  "
   '设置表格行数（包含列头），所以数据行为 2
   MSHFlexGrid1.Rows = 3
   For X = 1 To MSHFlexGrid1.Rows - 1
      MSHFlexGrid1.TextMatrix(X, 1) = "000" & X
      MSHFlexGrid1.TextMatrix(X, 2) = String(3, Chr(64 + X))
      MSHFlexGrid1.TextMatrix(X, 3) = "18 岁"
      MSHFlexGrid1.TextMatrix(X, 4) = Date - 365 * 18
   Next X
End Sub