Динамическое создание блоков(перехват управления) - VB

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

Добрый день! Вопрос заключается в следующем, есть массив вида:

                    Листинг программы
                
Set masstp(1, ntp) = Form1.Controls.Add("vb.textbox", "N" & CStr(ntp))
Set masstp(2, ntp) = Form1.Controls.Add("vb.combobox", "TR1_" & CStr(ntp))
Set masstp(3, ntp) = Form1.Controls.Add("vb.combobox", "TR2_" & CStr(ntp))
Set masstp(4, ntp) = Form1.Controls.Add("vb.listbox", "Sv" & CStr(ntp))

Массив изменяется в размере. Каким обзазом перехватить управление его элементами. Например необходимо создать подпрограмму выполняемую при клике по элементу листбокс(при этом еще зная по какому лист боксу произошел клик). З.Ы. так же просвятите как привязать создаваемый таким образом объект к пикчербоксу, необходим скрол по форме.

Решение задачи: «Динамическое создание блоков(перехват управления)»

textual
                            Листинг программы 
                        
redim preserve masstp(ubound(masstp)-1)