違うフォームのテキストボックスの値

Option Strict On

Public Class Form1 : Inherits System.Windows.Forms.Form

　[　Windows フォーム デザイナで生成されたコード　]

  #Region "　Form2 を表示するボタン　"

    Private Sub btnShowForm2_Click(...) Handles btnShowForm2.Click
        Dim oForm2 As New Form2()

        Try ' Form2 で [OK] ボタンが押下された場合のみ OneValue を表示
            If oForm2.ShowDialog() = DialogResult.OK Then
                ' Form2 の OneValue に格納された値を取得
                Dim stOneValue As String = oForm2.OneValue
                MessageBox.Show(stOneValue)
            End If
        Finally
            ' oForm2 の破棄
            If Not oForm2 Is Nothing Then
                oForm2.Dispose()
            End If
        End Try
    End Sub
______________________________________________________________________

Option Strict On

Public Class Form2 : Inherits System.Windows.Forms.Form

  [　Windows フォーム デザイナで生成されたコード　]

  #Region "　OneValue プロパティ　"

    ' Form1 から取得したいデータ
    Private _OneValue As String

    Public ReadOnly Property OneValue() As String
        Get
            Return Me.TextBox1.Text
        End Get
    End Property

  #End Region

  #Region "　[OK] ボタン　"

    ' [OK] ボタンとする
    Private Sub btnOK_Click(...) Handles btnOK.Click
        Me._OneValue = "この値が欲しいので設定する"
        Me.DialogResult = DialogResult.OK
    End Sub

  #End Region

End Class