Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim frm2 As New Form2
 
        frm2.Text1 = TextBox1.Text
        frm2.Text2 = TextBox2.Text
        frm2.Text3 = TextBox3.Text
 
        If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = frm2.Text1
            TextBox2.Text = frm2.Text2
            TextBox3.Text = frm2.Text3
        End If
 
    End Sub
End Class

Public Class Form2
 
    Public Property Text1 As String
        Get
            Return TextBox1.Text
        End Get
        Set(ByVal value As String)
            TextBox1.Text = value
        End Set
    End Property
    Public Property Text2 As String
        Get
            Return TextBox2.Text
        End Get
        Set(ByVal value As String)
            TextBox2.Text = value
        End Set
    End Property
    Public Property Text3 As String
        Get
            Return TextBox3.Text
        End Get
        Set(ByVal value As String)
            TextBox3.Text = value
        End Set
    End Property
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Text1 = TextBox1.Text
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
        Text2 = TextBox2.Text
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox3.TextChanged
        Text3 = TextBox3.Text
    End Sub
End Class