Passing Between windows forms

<pre lang="vb">

Public Class Form1

    Dim frm2 As Form2

    Private Sub btnShowForm2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowForm2.Click
        InitForm()
    End Sub

    Private Sub InitForm()

        If frm2 Is Nothing OrElse frm2.IsDisposed = True Then
            frm2 = New Form2
        End If

        If frm2.Visible = False Then
            frm2.Show()
        End If

    End Sub

    Private Sub btnSayHello_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSayHello.Click
        InitForm()
        frm2.SayHello(txtName.Text)
    End Sub

    Private Sub btnSetValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetValue.Click
        InitForm()
        frm2.SampelValue = txtValue.Text
    End Sub

    Private Sub btnGetValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetValue.Click
        InitForm()
        txtValue.Text = frm2.SampelValue
    End Sub
End Class

<pre lang="vb">Public Class Form2

    Public Sub SayHello(ByVal name As String)
        lblHallo.Text = "Hello " & name
    End Sub

    Public Property SampelValue() As String
        Get
            Return txtValue.Text
        End Get
        Set(ByVal value As String)
            txtValue.Text = value
        End Set
    End Property

End Class

Public Class Form1

    Public _form2 As Form2 = New Form2

    Private Sub btnList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnList.Click
        _form2.Show()

    End Sub

    Public WriteOnly Property _textBox() As String

        Set(ByVal Value As String)

            tbxVal.Text = Value

        End Set

    End Property

Public Class Form2

    Public _form1 As Form1

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim frm As Form1 = New Form1
        'frm._textBox = _textBox1
        Value = _textBox1
        'frm.Close()
        Me.Close()
        'frm.Show()

        '_form1 = New Form1
        'With _form1
        '    .tbxVal.Text = _textBox1
        '    Me.Close()
        'End With


    End Sub

    Public ReadOnly Property _textBox1() As String
        Get
            Return tbxValue1.Text
        End Get
    End Property

    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim fm As Form1 = New Form1
        fm.tbxVal.Text = Value
    End Sub

End Class