0
"RESOLVIDO" ------
Depois de muita pesquisa descobrir....
Form1 - formulario principal
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'abri o formulário midchindren e adiciona a uma caixa de painel conteiner
form1 - mdichildren
Dim f2 As New Form2( )
f2.TopLevel = False
Form1.Panel2.Controls.Add(f2)
f2.BringToFront()
f2.Show()
'fica aguardando o retorno do valor.
If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
Me.MaskedTextBox4.Text = f.DataGridView1.CurrentRow.Cells(0).Value
end if
end sub
'no formulário 2 eu tenho um botão para fazer uma pesquisa e retornar uma valor
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Abrir formulário para fazer a pesquisa
Dim f As New form3()
f.BringToFront()
f.ShowDialog(Me)
'comando para ficar aguardando o valor
If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
Me.MaskedTextBox4.Text = f.DataGridView1.CurrentRow.Cells(0).Value
end if
form3
'o formulário II abro um formulário de pesquisa, e retorno um valor que eu seleciono
Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
Me.DialogResult = Windows.Forms.DialogResult.OK
form1.MaskedTextBox4.Clear()
Me.Close()
End Sub
e isso ai acho que consegui explicar.