Highlight whole row

[mohsinof]

I have a Flexgrid in my form I am trying to highlight the whole row when I click the right mouse button, but it is not working with me..

This is the code I am using:

Private Sub msflexgrid1_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
 
    If Button = vbRightButton Then
        msflexgrid1.Col = 1
         msflexgrid1.ColSel = msflexgrid1.Cols - 1
   
     End if
End sub

Any suggestion??

Thanks in advance