Using frm As New Form2
            If frm.ShowDialog = DialogResult.OK Then
               Me.TextBox1.Text = frm.Text1
            End If
         End Using

      Public Property Text1() As String
         Get
            Return TextBox1.Text
         End Get
         Set(ByVal value As String)
            TextBox1.Text = value
         End Set
      End Property