Привязка к ListBox числового массива (Привязать цену к наименованию товара) - VB

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

Здравствуйте! Проект заключается в том, что нужно создать как-бы "онлайн-магазин". Нужно для каждого элемента в списке List1 как-нибудь прикрутить цену. Подскажите как?

Не по теме:

добавление, удаление, очистку сделал... осталась только цена...

ЗЫ: также нужно чтобы цена была постоянной, т.е. без RND

Решение задачи: «Привязка к ListBox числового массива (Привязать цену к наименованию товара)»

textual
                            Листинг программы 
                        

                            '...
for i= List1.ListIndex to List1.ListCount
mas_prrice(i)=mas_prrice(i+1)
next
                        