Dim nSelectedByDown1 As Long


Private Sub VSFlexGrid1_AfterScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)
    nTopVisibleRow1 = NewTopRow -  1 
End Sub

Private Sub VSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        With VSFlexGrid1
            If Button =  2  Then
                
                If Y > VSFlexGrid1.RowHeight( 0 ) _
                And Y < .RowPos(.Rows -  1 ) + .RowHeight(.Rows -  1 ) + Screen.TwipsPerPixelY _
                And X < (.ColPos(.Cols -  1 ) + .ColWidth(.Cols -  1 )) + Screen.TwipsPerPixelX _
                Then
                    
                    If .Row = - 1  Then .Select  0 ,  1 
                    
                    
                    If VSFlexGrid1.Row = VSFlexGrid1.RowSel _
                    Or Y < IIf(.Row < .RowSel, .RowPos(.Row), .RowPos(.RowSel)) _
                    Or Y > IIf(.Row > .RowSel, .RowPos(.Row) + .RowHeight(.Row), .RowPos(.RowSel) + .RowHeight(.RowSel)) _
                    Then
                            VSFlexGrid1.Select (Y / VSFlexGrid1.RowHeight( 1 ) -  0 . 5 ) + nTopVisibleRow1,  1 
                    Else
                        bNoRBtnSelect = True
                    End If
                End If
            End If
        
        End With
End Sub