Pasar Fila de un Datagrid a Otro

[Erick21]

hola gracias por la ayuda , me sale el siguiente error en esta parte.

Function Valores(ByVal fila As DataRow) As String()

Dim contenido(dtb.Columns.Count() - 1) As String
For x As Integer = 0 To contenido.Length() - 1
contenido(x) = fila.Item(x).ToString()
a.Add(x) >>>>>> "Referencia a objeto no establecida como instancia de un objeto"
Next
Return contenido
End Function

al declarar el arraylist no deberia ir dim a as new arraylist ?