Private Sub Form_Load()
ReDim biaoti(3)
biaoti(0) = "运行工况"
biaoti(1) = "运行点"
biaoti(2) = "高效点"
biaoti(3) = "设计参数"

 '初始化网格标题行
  MSFlex.Cols = 5
     MSFlex.Row = 0
   For intloop = 0 To 3
   MSFlex.Col = intloop
 MSFlex.Text = biaoti(intloop)
 MSFlex.RowHeightMin = 400
Next intloop
MSFlex.Rows = 9
MSFlex.ColWidth(0) = 1500
MSFlex.ColWidth(1) = 1500
MSFlex.ColWidth(2) = 1500
MSFlex.ColWidth(3) = 1500
MSFlex.Row = 1
MSFlex.Col = 0
MSFlex.Text = "流量（m^3/h）"
MSFlex.Row = 2
MSFlex.Text = "全压（pa）"
MSFlex.Row = 3
MSFlex.Text = "比转速"
MSFlex.Row = 4
MSFlex.Text = "流量系数"
MSFlex.Row = 5
MSFlex.Text = "压力系数"
MSFlex.Row = 6
MSFlex.Text = "全压效率"
MSFlex.Row = 7
MSFlex.Text = "功率系数"
MSFlex.Row = 8
MSFlex.Text = "轴功率"

MSFlex.Row = 1
MSFlex.Col = 3
MSFlex.Text = "设计流量"
MSFlex.Row = 2
MSFlex.Col = 3
MSFlex.Text = "设计全压"
MSFlex.Row = 3
MSFlex.Col = 3
MSFlex.Text = "进气压力"
End Sub

显示是 MSFlex.Cols = 5 错误