Como calcular Soma, Porcentagem de Valores do ListBox?

[rafaeloliveira83 0]

Olá tenho uma aplicação que tem:

 

Botão Incluir, Botão Remover, Botão Limpar e Calcular.

 

O Incluir ele inclui no ListBox

 

lst.Items.Add(edtValores.Text)

 

O Remover remove o selecionado do ListBox

 

lst.Items.RemoveAt(lst.SelectedIndex)

 

O Limpar

 

lst.Items.Clear()

 

Como eu posso fazer os valores que eu adicionar no ListBox ser somados?

[viciado 1]

Percorre o listBox e vai somando os valores de cada indice do listbox

 

Percorre o listBox e vai somando os valores de cada indice do listbox

[sNniffer 1]

Uso assim.

 

Dim Soma As Currency

For i = 1 To ListView.ListItems.Count

Soma = Soma + CCur(ListView.ListItems(i).SubItems(4))

Next

txtValor.Text = Soma

txtValor.Text = Format(txtValor.Text, "Currency")