~

Dim _selectedrows As New List(Of Integer)
Dim _protectselection As Boolean = False
 
Private Sub dgv_SelectionChanged(sender As Object, _
        e As System.EventArgs) Handles dgv.SelectionChanged
 
     With dgv
        If .SelectedRows.Count > 0 AndAlso Not _protectselection Then
           _selectedrows.Clear()
           For i As Integer = 0 To .SelectedRows.Count - 1
             _selectedrows.Add(CInt(.SelectedRows(i).Cells("Key").Value))
           Next i
        End If
     End With
End Sub
 
Private Sub dgv_Sorted(sender As Object, _
        e As System.EventArgs) Handles dgv.Sorted
 
   _protectselection = True
   With dgv
     .ClearSelection()
     If _selectedrows.Count > 0 Then
       For i As Integer = 0 To .Rows.Count - 1
         If _selectedrows.Contains(CInt(.Rows(i).Cells("Key").Value)) Then
           .Rows(i).Selected = True
         End If
       Next i
     End If
   End With
   _protectselection = False
End Sub