01.
Dim
a, t, b, c
As
Integer
02.
For
a = 0
To
ListView1.SelectedItems.Count - 1
03.
Dim
lvi1
As
ListViewItem
04.
lvi1 = ListView1.SelectedItems(a)
05.
t = ListView1.SelectedItems(a).SubItems(4).Text
06.
Next
07.
08.
Dim
i
As
Integer
= 0
09.
For
i = 0
To
ListView1.SelectedItems.Count - 1
10.
Dim
lvi
As
ListViewItem
11.
lvi = ListView1.SelectedItems(i)
12.
ListView1.Items.Remove(lvi)
13.
Next
14.
15.
textbox12.Text = textbox12.Text - ((t * 7) / 100)
16.
TextBox9.Text = TextBox9.Text - (t + textbox12.Text)
17.
18.
19.
For
b = 0
To
ListView1.SelectedItems.Count - 1
20.
c = c + ListView1.Items(b).SubItems(4).Text
21.
Next
22.
MsgBox(c)