VB: заполнить текстовое поле всплывающим из TXT

Question

Я создаю VB-файл, и у меня есть TXT-файл, некоторые из которых я хочу заполнить текстовое поле. Что он в данный момент делает: выбирает вариант, который я ввожу в текстовое поле, которое я создал.

Что я хочу сделать: создайте всплывающее окно с каждым параметром из файла текстового поля, покажите его на экране, позвольте мне выбрать, а затем заполните другое текстовое поле моим выбором. Текущий код и скриншот:

Public Class Form1
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
    Dim f As New Form2
    Try
        f.Owner = Me
        '
        ' Before showing the child form populate TextBoxes
        '
        f.TextBox1.Text = "1"
        f.TextBox2.Text = "2"
        f.TextBox3.Text = "3"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim Box = (From T In f.Controls.OfType(Of TextBox)()
                       Where Not String.IsNullOrWhiteSpace(T.Text)
                       Select T Order By T.Name).FirstOrDefault

            If Box IsNot Nothing Then
                Me.TextBox1.Text = Box.Text
            End If
        End If
    Finally
        f.Dispose()
    End Try

End Sub

End Class

Форма 2

Public Class Form2
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim Box = (From T In Controls.OfType(Of TextBox)()
               Where Not String.IsNullOrWhiteSpace(T.Text)
               Select T Order By T.Name).FirstOrDefault

    If Box IsNot Nothing Then
        CType(Me.Owner, Form1).TextBox1.Text = Box.Text
    End If
    CType(Me.Owner, Form1).ActiveControl = CType(Me.Owner, Form1).cmdClose

    Close()
End Sub

End Class

Изображение:

edit: теперь мне нужно только поставить флажок в заблокированных текстовых полях, каждая строка из текстового файла.