Форматирование таблицы FlexGrid - VB

Формулировка задачи:

Добрый день! Подскажите как сделать форматирование таблицы FlexGrid чтобы привести ее примерно в такой вид как на картинке.

Решение задачи: «Форматирование таблицы FlexGrid»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Комманда1_Click()
    Dim C
    With MSFlexGrid1
    .Rows = 4
    .Cols = 6
    .FixedCols = 0
    .FixedRows = 0
     .MergeCells = flexMergeFree
    C = 2
          .Col = 2
         .ColAlignment(C) = 4
         .TextMatrix(0, C) = "Объединённый столбец"
         .TextMatrix(0, C + 1) = "Объединённый столбец"
        .TextMatrix(1, C) = "Столбец " & C + 1
        .TextMatrix(1, C + 1) = "Столбец " & C + 2
        .MergeRow(0) = True
          .Refresh
            For C = 0 To 5
                    Select Case C
                    Case 0 To 1, 4 To 5
                             .ColAlignment(C) = 4
                             .TextMatrix(0, C) = "Столбец " & C + 1
                            .TextMatrix(1, C) = "Столбец " & C + 1
                            .MergeCol(C) = True
                    End Select
            Next C
    End With
End Sub