Приложение "Магазин бытовой техники". Товар выбирается из элемента ListBox

Public Class Form1
    Dim n As Integer 'количество покупок
    Dim ilst1(0 To 6) As Integer 'моссив измерении едениц
    Dim price(0 To 9) As Single ' массив цен
    Dim sum() As Single ' моосив стоимости продуктов
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'заполняем поле со списком товара
        cmbltem.Items.Add("Стиральная машина C-1")
        cmbltem.Items.Add("Стиральная машина Ф-2")
        cmbltem.Items.Add("Телевизор LG - 2000")
        cmbltem.Items.Add("Телевизор Samsung SG-10R")
        cmbltem.Items.Add("Микроволновая печь LG -S")
        cmbltem.Items.Add("Газовая плита Indesit T1")
        ' зополняем массив цен
        price(0) = 25000
        price(1) = 30000
        price(2) = 70000
        price(3) = 120000
        price(4) = 3500
        price(5) = 6000
        'заполняем массив едениц измерений 
        ilst1(0) = 0
        ilst1(1) = 1
        ilst1(2) = 2
        ilst1(3) = 3
        ilst1(4) = 4
        ilst1(5) = 5
        'настраиваем лист listVew T1
        T1.Columns.Add("n", 30)
        T1.Columns.Add("нименование товара", 200)
        T1.Columns.Add("ед. измерения", 80)
        T1.Columns.Add("цена", 80)
        T1.Columns.Add("Ед.Изм", 80)
        T1.Columns.Add("кол", 80)
        T1.Columns.Add("сумма", 100)
        T1.Width = 30 + 200 + 80 + 80 + 80 + 80 + 100 + 5
        ' начальное количество покупок равна нулю
        n = 0
        'определяем начальное размер массива сумм за товары
        ReDim sum(0)
    End Sub
    Private Sub cmbltem_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbltem.SelectedIndexChanged
        Dim k As Integer, k1 As Integer
        ' В k заполняем выпроного продукта,
        ' а в k1 - номер соотвествующей еденицы измерения
        k1 = ilst1(k)
        ' выбераем в список ед.изм. нужную строку
        lst1.SelectedIndex = k1
        'покажем цену выброного продукта
        lblprice.Text = CStr(price(k)) & "руб."
        ' очистем поля для кол -ва и суммы,
        ' переведем фокус на поле количество
        TxtKol.Text = ""
        lblsum.Text = ""
        TxtKol.Focus()
    End Sub
 
    Private Sub TxtKol_KeyPress(sender As Object, key As System.Windows.Forms.KeyPressEventArgs) Handles TxtKol.KeyPress
        Dim k As Integer
        ' если нажать клавиша интерб, то перевести оброботку
        If key.KeyChar = ChrW(Keys.Return) Then
            ' получить номер выброного продукта
            ' посчитать сумму за товар (сумма=цена*количество)
            sum(n) = price(k) * CInt(TxtKol.Text)
 
        End If
    End Sub
 
    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
 
    End Sub
End Class