Public Class Form1


    Dim F2 As Form2


    'F2が起動していなければ起動し、起動していればフォーカスを当てる

    Private Sub Button1_Click(ByVal sender As System.Object, _

                              ByVal e As System.EventArgs) _

                              Handles ButForm2.Click

        If (F2 Is Nothing) OrElse (F2.IsDisposed) Then

            'Form2のインスタンスF2を作って表示する

            F2 = New Form2(Me)

            F2.Visible = True

        Else

            'フォーカスを当てる

            F2.Focus()

        End If

    End Sub


    'Form2のテキストボックスに書き込む

    Private Sub Button2_Click(ByVal sender As System.Object, _

                              ByVal e As System.EventArgs) _

                              Handles Button2.Click


        'F2が起動されていて、Disposeされていなければ

        If F2 IsNot Nothing AndAlso Not F2.IsDisposed Then

            F2.TextBox2.Text = TextBox1.Text

        End If

    End Sub

End Class

Public Class Form2

    'Form1の宣言

    Private F1 As Form1

    'フォーム起動時に親から呼び出される


    Public Sub New(ByVal fomForm1 As Form1)

        InitializeComponent() 'これは必ず必要です

        F1 = fomForm1

    End Sub


    'Form1のテキストボックスに書き込む

    Private Sub Button1_Click(ByVal sender As System.Object, _

                             ByVal e As System.EventArgs) _

                             Handles Button1.Click

        F1.TextBox2.Text = TextBox1.Text

    End Sub

End Class

・Public Sub New(ByVal fomForm1 As Form1)
Sub Newはフォームのインスタンスが作される時必ず呼び出され、更にForm1で
起動時に渡した、Form1のインスタンスも引数で 渡ってきます。
　　 ・Form1 = fomForm1
さらに渡ってきたForm1のインスタンスを、Form2で宣言したForm1のインスタンスF1に 代入しています。
これででForm1のインスタンスF1にアクセスが出来ます。
(download)上記コードのダウンロード