Dim a As Integer
Private Sub Command1_Click()
Dim i As Integer
a = a - 100
With MSHFlexGrid1
.AllowUserResizing = flexResizeColumns
.WordWrap = True
.Cols = 3
.Rows = 2
For i = 1 To 10
.AddItem i & vbTab & i ^ 2 & vbTab & "基本信息"
Next
MSHFlexGrid1.WordWrap = True
.RemoveItem 1
For i = 0 To 2
.ColWidth(i) = Array(1000, 1000, a)(i)
Next
.MergeCells = flexMergeRestrictColumns
.MergeCol(2) = True
End With
End Sub