Dim currentindex As Integer = -1
For Each row As DataGridViewRow In dgv.SelectedRows
   If dgv.CurrentCell.RowIndex = row.Index Then
      currentindex = row.Index
   Else
      dgv.Rows.Item(row.Index).Visible = False
   End If
Next row
 
If currentindex >= 0 Then
   dgv.CurrentCell = Nothing
   dgv.Rows(currentindex).Visible = False
End If