Выбор строки по нажатию правой кнопки мыши на Grid-e - VB

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
 
    If Button = vbRightButton Then
        With MSHFlexGrid1
            Select Case .SelectionMode
                Case flexSelectionFree
                    .Col = .MouseCol
                    .Row = .MouseRow
                Case flexSelectionByColumn
                      .Col = .MouseCol
                      .RowSel = .Rows - 1
                Case flexSelectionByRow
                     .Row = .MouseRow
                     .ColSel = .Cols - 1
            End Select
        End With
    End If
 
End Sub