Одновременное выделение строк в двух MSHFlexGrid - VB

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

На форме есть 2 элемента MSHFlexGrid с одинаковым количеством строк, у обоих установлено свойство SelectionMode=FlexSelectionByRow. Можно ли сделать так, что при выделении целой строки в одном MSHFlexGrid при клике на нем выделялась соответствующая строка во втором MSHFlexGrid? Заранее спасибо.

Решение задачи: «Одновременное выделение строк в двух MSHFlexGrid»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> MSHFlexGrid1_Click()
<font color="blue">With</font> MSHFlexGrid2
    .col = MSHFlexGrid1.col
    .row = MSHFlexGrid1.row
    .colsel = MSHFlexGrid1.colsel
    .RowSel = MSHFlexGrid1.RowSel
    .SetFocus
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        