Приложение «Магазин бытовой техники» vs 2010

[FanArmenia]

Приложение «Магазин бытовой техники». Товар выбирается из элемента ListBox, который содержит 6 строк. Единицы измерения – только штуки.
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.KeyPressEventA rgs) 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
не получается((((помогите плиз

[FanArmenia]

Помогите плиз я вообще хоть так делаю???