Devolver valor de un DG a otro DG

[sagma]

Hola a todo como están, saben tengo este codigo con con un Doble click sobre el DG habro otro form2.

Código:

'para darle doble click al DG 
    Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As MouseEventArgs)

        Dim f1 As New ac352e
        Dim r As Integer = dgac352.CurrentCell.RowNumber

        f1.ShowDialog()

    End Sub

y en otro form hago busqueda del nombre y el codigo de la persona.
y quisiera que el codigo de la persona vuelva al primer DG del form1

con este codigo devuelvo el valor:

Código:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nro_codigo = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
        Me.Close()
    End Sub

y no me devuelve ningun valor, que estare haciendo mal??

gracias