こんばんは、質問の内容とは違うかもしれませんが、一応下記のようでいいでしょうか？
Form1側

Public Class Form1



    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim st As New ArrayList

        st.Add("abc")

        st.Add("def")

        st.Add("ghi")



        ListBox1.Items.AddRange(st.ToArray)

    End Sub



    Private Sub ListBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles ListBox1.DoubleClick

        Dim selectst As String

        selectst = ListBox1.SelectedItem



        Dim f As New Form2

        f.Opener = Me

        f.Show()

        f.TextBox1.Text = selectst



    End Sub

End Class



 

 

Form2側

Public Class Form2

    Public Opener As Form

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim f As Form1

        f = Me.Opener



        f.Visible = False

    End Sub

End Class

 

 
質問の内容と違ってましたらすいません。
今のうちに、謝っておきます。