mshflexgrid合并的问题

    MSHchd.Row = 1
    MSHchd.CellFontBold = True    MSHchd.MergeCol(0) = True
    For i = 2 To 3
        MSHchd.MergeRow(i) = True
        MSHchd.TextMatrix(i, 0) = "1"
    Next i
    MSHchd.MergeCol(1) = True
    For i = 2 To 3
        MSHchd.MergeRow(i) = True
        MSHchd.TextMatrix(i, 1) = "2"
    Next i
    MSHchd.MergeCol(2) = True
    For i = 2 To 3
        MSHchd.MergeRow(i) = True
        MSHchd.TextMatrix(i, 2) = "3"
    Next i
    
    
    MSHchd.MergeRow(2) = True
    For i = 3 To 6
        MSHchd.MergeCol(i) = True
        MSHchd.TextMatrix(1, i) = "4"
    Next i
    
    
    MSHchd.Row = 2
    MSHchd.Col = 0
    MSHchd.CellFontBold = True
    MSHchd.Col = 1
    MSHchd.CellFontBold = True
    MSHchd.Col = 2
    MSHchd.CellFontBold = True
    
    MSHchd.Row = 3
    For i = 0 To 8
        MSHchd.Col = 3
        MSHchd.Text = "41"
        MSHchd.CellFontBold = True
        MSHchd.CellAlignment = 4
        MSHchd.Col = 4
        MSHchd.Text = "42"
        MSHchd.CellFontBold = True
        MSHchd.CellAlignment = 4
        MSHchd.Col = 5
        MSHchd.Text = "43"
        MSHchd.CellFontBold = True
        MSHchd.CellAlignment = 4
        MSHchd.Col = 6
        MSHchd.Text = "44"
        MSHchd.CellFontBold = True
        MSHchd.CellAlignment = 4
    Next i
    MSHchd.MergeCol(7) = True
    For i = 1 To 2
        MSHchd.MergeRow(i) = True
        MSHchd.TextMatrix(i, 7) = "7"
        MSHchd.CellAlignment = 4
    Next i
    MSHchd.MergeCol(8) = True
    For i = 1 To 2
        MSHchd.MergeRow(i) = True
        MSHchd.TextMatrix(i, 8) = "8"
        MSHchd.CellAlignment = 4
    Next i
前三个格合并的时候没有问题，后面的就乱套了，大家帮忙看看