Private Sub DGVPay_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGVPay.CellMouseDown
If e.ColumnIndex >= 0 And e.RowIndex >= 0 And e.Button = Windows.Forms.MouseButtons.Right Then
If DGVPay.Rows(e.RowIndex).Cells(e.ColumnIndex).Selected = False Then
DGVPay.ClearSelection()
DGVPay.CurrentCell = DGVPay.Rows(e.RowIndex).Cells(e.ColumnIndex)
DGVPay.Rows(e.RowIndex).Cells(e.ColumnIndex).Selected = True
End If
End If
End Sub