Добавление строки в середину MSHFlexGrid-а - VB

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

Вопрос в том, КАК добавить в MSHFlexGrid новую строку НЕ В КОНЕЦ, а в середину. Например, если уже есть 9 строк, то как мне добавитьпустую строку 3-ей?

Решение задачи: «Добавление строки в середину MSHFlexGrid-а»

textual
                            Листинг программы 
                        

                            Private Sub InsertRow(ByVal pintRowNumber As Integer)
    
    With MSHFlexGrid1
    .AddItem vbTab
    .RowPosition(.Rows - 1) = pintRowNumber
    End With
 
End Sub
 
Private Sub Command1_Click()
    InsertRow 3
End Sub
 
Private Sub Form_Load()
    With MSHFlexGrid1
        .TextMatrix(1, 1) = "A"
        .TextMatrix(2, 1) = "B"
        .TextMatrix(3, 1) = "C"
        .TextMatrix(4, 1) = "D"
        .TextMatrix(5, 1) = "E"
    End With
End Sub
                        