vsFlexgrid合并单元格后自动调节列宽不是预想效果?

Question

大家帮忙粘下面代码到窗体中即可看到结果（合并表头后的自动调节列宽不起作用），不合并时没问题？？
用什么方法可解决？？
Option Explicit
Private Sub Form_Load()
Dim i As Long
    With VSFlexGrid1
        .Rows = 3
        .Cols = 10
        .FixedRows = 2
        .FixedCols = 0
        .AutoSize 0, .Cols - 1
        .AutoSizeMode = flexAutoSizeColWidth
        .AutoSizeMouse = True
        .AllowUserResizing = flexResizeColumns
        
        
        .MergeCells = flexMergeFree
        For i = 0 To .Cols - 1
            .MergeCol(i) = True
        Next
        For i = 0 To .Rows - 1
            .MergeRow(i) = True
        Next
        .Editable = flexEDKbd
        .TextMatrix(0, 0) = "人员编号"
        .TextMatrix(1, 0) = "人员编号"
        .TextMatrix(0, 1) = "人员姓名"
        .TextMatrix(1, 1) = "人员姓名"
        
    End With
End Sub