В MSHflexgrid не могу объеденить ячейки

[valk]

Добрый день.
В MSHflexgrid не могу объеденить ячейки. В последнем столбике ячейки не объеденяются. Необходимо объеденить ячейки с записями "Сальдо по расчетам на конец отчетного периода". Ниже приведен код. Что в нем не правельно? Подскажите пожалуйста. Заранее благодарен.

Private Sub Form_Load()
With MSHFlexGrid2
.Rows = 50
.FixedRows = 6
.FixedCols = 2
.Cols = 8
.BackColor = vbWhite
'-----------------------------
For d = 0 To 7
.MergeCol(d) = True
Next d

'-------------------------------
For j = 0 To 3
For i = 0 To 7
.Col = i
.Row = j
.CellAlignment = 4
Next i
Next j

.MergeRow(0) = True
.MergeRow(1) = True
.MergeRow(2) = True
.MergeRow(3) = True
'--------------------

.ColWidth(0) = 700
.ColWidth(1) = 2400

For a = 2 To 7
.ColWidth(a) = 1400
Next a




.RowHeight(0) = 400
.RowHeight(1) = 600
.RowHeight(2) = 600
'---------------------------------
.TextMatrix(0, 0) = "№ п/п"
.TextMatrix(1, 0) = "№ п/п"
.TextMatrix(2, 0) = "№ п/п"
.TextMatrix(4, 0) = "1"
.TextMatrix(6, 0) = "1.1"
'----------------------------------
.TextMatrix(0, 1) = "Найменнування"
.TextMatrix(1, 1) = "Найменнування"
.TextMatrix(2, 1) = "Найменнування"
.TextMatrix(4, 1) = "ВСЬОГО"
.TextMatrix(5, 1) = "в т.ч"
.TextMatrix(6, 1) = "Монтаж"
'--------------------------------------
For i = 2 To 7
.TextMatrix(0, i) = "Расчеты с работниками"
Next i
.TextMatrix(1, 2) = "Сальдо на начало периода"
.TextMatrix(2, 2) = "Сальдо на начало периода"
.TextMatrix(1, 3) = "Начисленно"
.TextMatrix(1, 4) = "Начисленно"

.TextMatrix(2, 3) = "в отчетном периоде"
.TextMatrix(2, 4) = "с начала года"
.TextMatrix(2, 5) = "в отчетном периоде"
.TextMatrix(2, 6) = "с начала года"

.TextMatrix(1, 5) = "Выплачено в отчетном периоде"
.TextMatrix(1, 6) = "Выплачено в отчетном периоде"
For d = 0 To .Cols - 1
.MergeCol(d) = True
Next d
.MergeRow(0) = True
.MergeRow(1) = True

.TextMatrix(1, 7) = "Сальдо по расчетам на конец отчетного периода"
.TextMatrix(2, 7) = "Сальдо по расчетам на конец отчетного периода"

For i = 2 To 7
.TextMatrix(3, i) = "3." + CStr(i - 1)
Next i

End With
End Sub

[alibek]

Задай вначале свойство MSHFlexGrid2.MergeCells (flexMergeCellsFree или flexMergeCellsRestrictRows) и будет тебе счастье

[valk]

у меня выставлено свойство restrictrows

[alibek]

Это означает, что ячейки будут объединены только, если их содержимое по вертикали одинаково. Попробуй задай flexMergeFree