Prova così, l'argomento è già stato trattato più volte.
Ciaocodice:'in Form1 Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click Dim testo As String Dim myform As New Form2 myform.Owner = Me '<=== 'myform.testo = Me.TextBox1.Text myform.ShowDialog() 'Me.TextBox1.Text = myform.Txt1.Text End Sub 'in Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim f As Form1 f = Me.Owner Me.Txt1.Text = f.Textbox1.Text End Sub Private Sub BtnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChange.Click Dim f As Form1 f = Me.Owner f.Textbox1.Text = Me.Txt1.Text Me.close End Sub
P.S. se la prossima volta usi il tag CODE per postare il tuo codice risulterà a tutti molto più leggibile

Rispondi quotando