Выделение строки в MSHFLEXGRID - VB

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

STGrid_KeyDown(KeyCode  , Shift  )
  KeyCode
     
          STGrid.CellBackColor
             &H80FFFF
                STGrid.CellBackColor = &H80000005
             &H80000005
                STGrid.CellBackColor = &H80FFFF
         
STGrid.Row = STGrid.RowSel + 
 
 

Подскажите пожалуйста как мне выделить целиком всю строку.
STGrid.Row = STGrid.RowSel + 1 выделяет только одну ячейку.

Решение задачи: «Выделение строки в MSHFLEXGRID»

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

                            <font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="blue">Dim</font> iRow <font color="blue">As</font> <font color="blue">Integer</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">With</font> <font color="blue">Me</font>.MSHFlexGrid1

<font color="blue">If</font> iRow >= .Rows - <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    iRow = <font color="darkblue"><b>0</b></font>
<font color="blue">End</font> <font color="blue">If</font>
iRow = iRow + <font color="darkblue"><b>1</b></font>

.Row = iRow
.RowSel = iRow

.Col = <font color="darkblue"><b>0</b></font>
.ColSel = .Cols - <font color="darkblue"><b>1</b></font>

<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        