Private Sub DataGridView1_CellMouseDown(ByVal sender As Object, _ 
    ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) _ 
    Handles DataGridView1.CellMouseDown 
 
      If e.Button = Windows.Forms.MouseButtons.Right _
            AndAlso e.RowIndex >= 0 Then
 
            Me.DataGridView1.ClearSelection() 
            Me.DataGridView1.Rows(e.RowIndex).Selected = True 
        End If 
    End Sub

VB@rchiv its the Best