Отображение файла изображения и текстового файла одним щелчком мыши в списке

---

Просмотр папок изображений и текстовых файлов с помощью folderdialog
Но я не могу открыть соответствующий текстовый файл, нажав на название изображения

например: если имя изображения "DataFile1.jpg" тогда ... "DataFile1.txt" не открывается автоматически при нажатии на кнопку "DataFile1.jpg" из списка

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

Что я уже пробовал:

я попытался открыть оба по отдельности, щелкнув отдельно из другого списка

Мой код:

Private Sub Agregar_Archivos2(ByVal Nombre_Largo As String)
 Dim nombre_Archivo As String = Path.GetFileName(Nombre_Largo)

    If Not Mi_imagen.ContainsKey(nombre_Archivo) Then
        Mi_imagen.Add(nombre_Archivo, Nombre_Largo)

        Lis.Items.Add(nombre_Archivo)
    End If
End Sub
Private Sub Agregar_Archivostext(ByVal Nombre_Largo As String)

    Dim nombre_Archivo As String = Path.GetFileName(Nombre_Largo)

    If Not Mi_textn.ContainsKey(nombre_Archivo) Then
        Mi_textn.Add(nombre_Archivo, Nombre_Largo)

        ListBox1.Items.Add(nombre_Archivo)
    End If
End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        opp.Filter = "Image Documents (*.jpg) | *.jpg"    'etc, etc..
        If opp.ShowDialog() = DialogResult.OK Then

            Dim archivos() As String = opp.FileNames
            Dim i As Integer
            For i = 0 To archivos.Length - 1
                Agregar_Archivos2(archivos(i))

            Next
        End If

    Catch ex As Exception
        Exit Sub
    End Try
End Sub

Private Sub Agregar_Archivos(v As String)
    Throw New NotImplementedException()
End Sub




Sub imagen()
    Try
        Pic.Image = BM1
        BM1 = Image.FromFile(Obtener_nombre_Largo(Lis.SelectedItem.ToString()))
        Pic.SizeMode = PictureBoxSizeMode.AutoSize

        FlowLayoutPanel1.AutoScroll = True
        FlowLayoutPanel1.Controls.Add(Pic)

        nom.Text = "Image File Name is: " & Lis.Text

    Catch ex As Exception
        Exit Sub
    End Try
End Sub
Sub textn() Try TextBox1.Text = File.ReadAllText(Obtener_nombre_Largotext(ListBox1.SelectedItem.ToString()))

        'Pic.SizeMode = PictureBoxSizeMode.AutoSize



        txtfilename.Text = "File Name: " & ListBox1.Text


    Catch ex As Exception
        Exit Sub
    End Try
End Sub

---