Pasar Fila de un Datagrid a Otro

[Erick21]

Tienes Razon quedaria asi


Sub Copiar()

For Each Seleccion As DataRow In dtb.Select
dtb2.Rows.Add(Valores(Seleccion))
remover()
Next

End Sub

Sub remover()
Dim fila As Byte = dgdlista.CurrentCell.RowNumber

dtb.Rows.RemoveAt(fila)

End Sub

tmb hice un cambio aqui por que me seguia saliendo el mismo error
pero ahora me mueve todas las filas.