Запись в ListBox строчек списка + значений к ним из textbox - VB

Формулировка задачи:

Доброго времени суток, в продолжение этой темы. Задача в том, чтобы при нажатии кнопки в листбокс добавлялась строка (равная текстбоксу), а при нажатии на нее в текстбоксе и в пикчурбоксе отображались соответствующие значения из двух еще одних текстбоксов. Проблема в "закреплении" за строчкой списка значений текст и пикчур боксов. Приблизительно так:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Public Sub zapolnenie()
Dim u, r, f As String
Picture1.Cls
r = Text2.Text
f = Text3.Text
 
    Text4.Text = r
    Picture1.Print (f)
End Sub
Private Sub Command1_Click()
Dim u, r, f As String
u = Text1.Text
r = Text2.Text
f = Text3.Text
 
    List1.AddItem (u)
 
End Sub
 
Private Sub List1_Click()
 
Select Case List1.ListIndex \ 1 + 1
Case 1: Call zapolnenie
Case 2: Call zapolnenie
End Select
End Sub

Спасибо за внимание.

Решение задачи: «Запись в ListBox строчек списка + значений к ним из textbox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim u
    iL = iL + 1
    u = Text1.Text
    r(iL) = Text2.Text
    f(iL) = Text3.Text
    List1.AddItem u
End Su