Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button =  2  Then
    SelectRow MSFlexGrid1, MSFlexGrid1.Col, &H8000000D, &H80000005
End If
End Sub

Public Sub SelectRow(ByVal grid As MSFlexGrid, _
           ByVal ActiveCol As Integer, _
           ByVal SeleColor As Long, _
           ByVal NormalColor As Long)
           
Dim i As Integer

On Error GoTo errLabel

With grid
    For i = .FixedCols To .Cols - .FixedCols
        .Col = i
        .CellBackColor = IIf(Not .CellBackColor = SeleColor, SeleColor, NormalColor)
    Next 'i'
    .Col = ActiveCol
End With

Exit Sub '*********************************'
errLabel:
    MsgBox  "Непредвиденная ошибка!"  & vbCrLf & Err.Description, vbCritical, Err.Number
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button =  2  Then
    SelectRow MSFlexGrid1, &H8000000D, &H80000005
End If
End Sub

Public Sub SelectRow(ByVal grid As MSFlexGrid, _
           ByVal SeleColor As Long, _
           ByVal NormalColor As Long)
           
Dim i As Integer, ActiveCol As Integer

On Error GoTo errLabel

With grid
    ActiveCol = .Col
    For i = .FixedCols To .Cols - .FixedCols
        .Col = i
        .CellBackColor = IIf(Not .CellBackColor = SeleColor, SeleColor, NormalColor)
    Next 'i'
    .Col = ActiveCol
End With

Exit Sub '*********************************'
errLabel:
    MsgBox  "Непредвиденная ошибка!"  & vbCrLf & Err.Description, vbCritical, Err.Number
End Sub